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3.58 MHz bringt der Bit eine 
beachtliche Arbeitsgeschwin¬ 
digkeit. 

Ein 24K ROM bringt ein um¬ 
fangreiches und mächtiges 
BASIC in den Rechner, wozu 
eine Menge Befehle gehören, 
die besonders 


Das Gehäuse ist sauber ver¬ 
arbeitet an der rechten 
Schmalseite befinden sich 
zwei Joystick-Ports, ein 
weiterer an der Geräterück¬ 
seite. Dort entdecken wir 
auch den User-Port für die 
verschiedenen Erweiterun¬ 
gen. den Bildschirman- 
schluB, eine DIN-Buchse 
(5-polig) sowie den Schalter 
die Stromversorgung An 


Der"^M"es[tzt in der 
Grundversion 34K. die aller¬ 
dings beim Programmieren 
in BASIC auf magere 791 
Bytes schrumpfen, EineRAM- 
Erweiterung ist somit bereits 
von Anfang an zu empfeh¬ 
len. Der Hersteller bietet 
RAM-Packs, die eine Kapa- 
rung auf 50K 


gt bei 

Pixels. 32 X 24 Zeichen sind 
darstellbar. 

Mit 4 Tongeneratoren bietet 
der Bit sämtliche Vorausset¬ 
zungen für effektvolle Sound¬ 
umrahmung des von Ihnen 
selbst geschriebenen wie 
auch fettig gekauflen Spiel- 

Da Sprites vorgesehen sind, 
haben Sie ein weiteres Mittel 
an der Hand, um fantasie¬ 
volle Bewegungsabläufe ge- 


strings des Typs AS-"” ist in 
BIT-Basic nicht vorgesehen. 
Wird eine entsprechende Zu¬ 
weisung verwandt stürzt der 


der linken Gehäuseseite - 
und das werden Spielefreaks 
besonders zu schätzen wis¬ 
sen - findet sich ein Anschluß 
für Module aus dem Coleco- 
Vision-System. 

Doch nun zu den techni¬ 
schen Besonderheiten: 

Als CPU besitzt der Bit einen 
Z80A-Prozessor. was beson¬ 
ders für diejenigen interes¬ 
sant sein dürfte, die in Ma¬ 
schinensprache program¬ 
mieren wollen. Schließlich 
sind für diesen Prozessor 
viele gute Handbücher auf 
dem Markt 

Mit einer Taktfrequenz von 
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Spickzettel ade. 

Besonders fOr Scnüler der Mittet- und Oder- 
stufe geschrieben, enthalt das Buch viele 
Interessante ProWemlösungs- und Lernpro- 
granvne. Sie ermögllcnen ein Intensives 
lernen, unter anderem mit folgenden The¬ 
men: Satz des Pythagoras, quadratische 
Gleichungen, geometrische Reihen, Pendel¬ 
bewegungen, mechanische Hebel, Molekül- 

beln lernen, unregetmäBlge Verben, Zinses- _ 

Zinsrechnung Eine knappe Wiederholung der wichtigsten 
BASIC-Elemente und eine Einführung In die Crundzüge der 

Problemanalyse vervollständigen das Ganze. Mr --- 

machen die Hausaufgaben wieder SpaB! 


Diese beliebte umfangreiche Programm¬ 
sammlung hat es In sich. Ober SO Spitzen¬ 
programme für den COMMODORE 64 aus 
den unterschiedlichsten Bereichen, von 
attraktiven Supersplelen (Senso, Pengo, 
Master MInd, Seeschlacht Polsson Square, 
Memory) Uber Grafik- und Soundpro¬ 
gramme iFourler 64, Akustograph, Funk¬ 


gramme iKurvendlskusslon, Dreieck) sowie Utilities ISORT, 
RENUMBER, DISK INIT, MENUE) bis hin ZU kompletten Anwen¬ 
dungsprogrammen wie -Videothek', .File Manager und einer 
komfortablen HaushaltsbuchfUhrung, ln der fast professio¬ 
nell gebucht wird. Der Hit zu jedem Programm sind aktuelle I 
programmlerops und Tricks der einzelnen Autoren zum sei- 1 
bermachen. Also nicht nur abtippen, sondern auch dabei ler- I 
nen und wichtige Anregungen für die eigene Programmle- 



das geht mit UNI-TAB. Alle Rech- 


_ ch ln Sekundenschnelle durchführen, 'iwZ 
wer will, kann mit simulierten Spiel- 
ergebnissen den Weltmeister '86 vor¬ 
ausberechnen Aber nicht nur FuBball-llgen 
können tabellarisch erfaßt werden, fast alle Sportarten sind 
UNI-TAB-fahlg. Gag am Rande: für viele Sportarten stehen rSe 
bekannten PIktogramme zur Verfügung 
UNI-TAB m StIChWOIten: 

Menuesteuerung über die Funktionstasten mit leicht ver¬ 
ständlichen Auswahlmögllchkelten - Bedlenerfreundllch - 
Ligen mit 4 bis 20 Mannschaften können verwaltet werden 
(6 bis 38 Spieltage möglich) - favorisierte Mannschaft kann 
wahrend des Programmablaufs durch reverse Darstellung 
gekennzeichnet werden - Tabelle kann geändert werden 
(Wichtig bei Splelanulllerungen) - drei verschiedene Tabellen¬ 
arten können abgespeichert und spater eingelesen werden 
Idle aktuelle Tabelle lunabhangig von der Vollständigkeit 
eines Spieltagesl, der komplette Spieltag (Vollständigkeit und 
Nummer des Spieltages werden automatisch errechnet], die 
simulierte Tabelle (der Anwender kann so selbst Schicksal 
spielen und seinen Tip spater mit dem tatsächlichen Gesche¬ 
hen vergleichen» - zwei verschiedene Arten der salsonüber- 
slcht (statistische Übersicht, graphische übersieht) zeigt die 
Leistungskurve jeder Mannschaft) - alle Tabellen und Graphi¬ 
ken sind als Hardcopy auf einem Drucker darstellbar - bei 
Fehlbedlenung (z. B. gewünschte Druckausgabe bei nicht ein¬ 
geschaltetem Drucker) erscheinen leicht verständliche 
I deutsche Fehlermeldungen. 


TOLL, WAS DER C64 ALLES KANN! 


; Prof. 64. 

Ein faszinierendes Buch, um ln die weit der 
Wissenschaft einzusteigen, hat Rainer Seve¬ 
rin geschrieben. Zunächst werden varia- 
blentypen, Rechengenauigkeit und nütz¬ 
liche POKE-Adressen des (X3MMODORE 64 
bezüglich den Anforderungen wissen¬ 
schaftlicher Probleme analysiert, verschle- 
------—-.Quick 


trale stelle Im Buch ein: Nullstellen nach Newton, numerische I 
Ableitung mit dem Dlfferenzenquotlenten, lineare und nicht- T 
lineare Regression. Chl-Ouadrat-vertellung und Anpassungs¬ 
test Fourieranalyse und -Synthese, Skalar-, Vektor- und Spat¬ 
produkt. ein Programmpaket zur Matrizenrechnung für 
Inversion. Eigenwerte und vieles weitere mehr. Programme 
aus der Chemie (Periodensystem), Physik, Biologie (Schad¬ 
stoffe In Gewässern - Erfassung der Meßwerte), Astronomie 
ipianetenpositioneni und Technik (Berechnung komplexer 
Netzwerke. Plattnenlayout am BDdschlrml und viele weitere 
Softwarellstings zeigen die riesigen Möglichkeiten auf. die 
der Computer in Wissenschaft und Technik hat. 


I' Tausendsassa. 

in mit dem commodore 
I st in diesem Buch aus 
- ben. ES Ist nient nur sp: 

, -le ein Roman, sondern e. .. 

I hält neben nützlichen Programmllstings 
I vor allem viele, viele Anwendungsmögllch- 
I kelten des C64. Dabei vnjrde besonderer 
I wert darauf gelegt, daß das Buch auch für 

I Laien leicht verständlich Ist Eine Auswahl _ 

■ aus der Themenvielf alt: Gedichte vom Computer, Einladung 
I zur Party, Diplomarbeit - professionell gestaltet, Individuelle 
I werbebriefe, Autokosten im Griff, Baukostenberechnung, 

I Taschenrechner Rezeptkartei, Lagerliste, persönliches 
I Gesundheitsarchiv, Dlätplan elektronisch. Intelligentes Wör- . 
I terbuch, kleine Notenschule, CAD für Handarbeit RoutenoptI- 1 
I mlerung, Schaufensterwerbung, strategiespiele. Teilweise ^ 

I Sind Programmllstings fertig zum Eintippen enthalten, ^ 

soweit sich die-Rezepte-auf 1-2 seiten r""-‘- 

[ IleBen. wenn sie bisher nicht Immer wuß 
was Sie mit ihrem 64er alles anfangen 
sollten, nach dem Lesen des IDEEN- 
BUCHES wissen Sle s bestimmt! 


























Pazil: 

Da in Kürze außer dem be¬ 
reits erhältlichen Coleco- 
Vision- auch ein Atari- 
Adapter. ein Sprachmodul 
und weiteres interessantes 
Zubehör verfügbar sein wer¬ 
den. ist man mit dem BlT-90 
durchaus gut beraten, wenn 
^an ein leichtes, flexibles 
_.id bequem zu handhaben¬ 
des Gerät sucht Was dem 
BIT fehlt wird deijenige. der 
sich länger mit seinem Com¬ 
puter beschäftigt bald selbst 
simulieren können. Wir 
m da an die Unmenge 
Tricks und Verbesserungen, 
die VC-20 User für ihr 
Gerät entwickelten. 


Das BIT-90-Bastc 


ABS( 

ASC( 

ATN( 

AUTO 

BYE 

CALL 

CHRS 

CLOSE 

CLEAR 

CONT 

COPY 

DATA 

DEL 

DELETE 

DEF 

DIM 

EDIT 

ELSE 

END 


GOSUB 

GOTO 

HEXS 

HOME 


INT( 

INKEYS 

JOYSTI 

LEN( 


LOG( 

NEXT 

NEW 

MUSIC 

MIDS 


OPTIONSBASE 

OUT 

PEEK( 

PLAY 

PLOT 

POKE 

POS 


READ 

REM 

RESUME 

REC 

RIGHTS 

RENUM 

RESTORE 

RND( 

RUN 


STEP 

STOP 

STRS 

TAB( 

TAN( 

TEMPO 

THEN 

TO 

TRACE 

VAL) 

WAIT 


AND 

NOT 


SGN( 

SQR( 

SPC( 


Eingebaute Funktionen; 


Funktion Beispiel 


Erklärung 


ASC 

ATN 

CHRS 


LN 

LOG 

MIDS 

STRS 

RIGHTS 

RND 

SGN 

SIN 

SQR 

TAN 

VAL 

HEXS 


ABS(X) 

ASC($) 

ATN(X) 

CHRSfX) 

COSfX) 

EXP(X) 

INT(X) 

LEFTS(A$.N) 

LEN(A$) 

LN(A) 

LOG(N) 

MIDS(A$A.B) 

STRSfA) 

RIGHTSfBS.C) 

RND(A) 

SGN(X) 

SIN(X) 

SQR(A) 

TAN(X) 

VAU AS) 

HEXS(A) 

FNA(X) 

FN AS(X$)-XS&"" 
JOYSTIA) 


ASCII Code für das erste Zeichen der Buchstabenkombination 

Ergibt das Resultat des Arcus Tangens in Radians 

Bringt das dem ASCII Code entsprechende Zeichen für X (0-255) 

Cosinus von X das ein Winkel sein muß 

Erhebt X zum Exponenten einer Zahl 

Höchster, ganzzahliger Wert der kleiner oder gleich X ist 

Bringt N-Zeichen von links der Kombination A$ 

Bringt die Länge der Kombination AS 
Natürlicher Logarithmus von A (größer als 0) 

Logarithmus von N (größer als 0) mit der Basis 10 
Bringt B-Zeichen von AS. beginnend beim A.Zeichen 
Setzt den Wert der Zahl in einen Buchstaben um 
Bringt die letzten C-Zeichen von B$ 

Zufallszahl zwischen 0 und I. aber ungleich I 

Signumfunktion: ~l fürXgrößerO. “-1 (ÜrX kleiner0. “0 für X ”0 

Sinus von X (Winkel) 

Quadratwurzel von A (größer oder gleich 0) 

Tangens von X (Winkel) 

Setzt den Wert des Buchstaben in eine Zahl um 
Bringt den hexadezimalen Wert von A 
Programmierer definiert die Funktion 

Bringt den Wert der Joystickeinheit A 


BREAK 

SYNTAX ERROR 

OUT OF MEMORY 

CANT CONTINUE 

LINE BUFFER OVERFLOW 

ILLEGAL FUNCTION CALL 

OVERFLOW 

UNDERFLOW 

ERROR IN EXPRESSION STACK 
EXPRESSION TOO COMPLEX 
UNDEFINED FUNCTION 
REDIMENSIONED ARRAY 


DfVIDED BY ZERO 
TYPE MISMATCH 
NO RESUME 

RESUME WITHOUT ERROR 
NEXT WITHOUT FOR 
FOR WITHOUT NEXT 
RETURN WITHOUR GOSUB 
OUT OF DATA 
BAD LINE NUMBER 
BAD SUBSCRIPT 
INCORRECT STATEMENT 
ILLEGAL DIRECT 
TAPE I/O ERROR 
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TERMIN-Kalender 

in 

HOMECOMPUTER 

Name der Veransialtung 

Datum 

Ort 

Computertage ’84 

31.08. - 02.09.84 

Kaiserslautern 

Computertage ’84 

02.09. - 04.09.84 

Göttingen 

4. Commodore-FaGhausstellung 

06.09. ^ 08.09.84 

' ' Frankfurt/M 

Elektronik-Comp.-Tage Saar 

07.09. - 09.09.84 

Saarbrücken 

12th ZX-Microfair ’84 

nur 08.a9.84 

London 

Computertage ’84 

14.09. - 16.09.84 

Hagen 

^.Computertage ’ 84 

22.09. - 24.09.84 

Duisburg 

; Fachtagung d. Ges. f. Informatik 

08.10. - 10.10.84 

Berlin 

pPhotokina ’84 . 

10.10. - 16.10.84 

Köln 

Computertage ’84 

12.10. - 14.10.84 

Siegen 

Hobby-Elektronik ’84 

17.10. - 21.10.84 

Stuttgart 

Computertage Hückelhoven 

20.10. - 21.10.84 

Hückelhoven 

Hobby + Elektronik ’84 

15.11. - 18.11.84, 

Wien 

Computertage ’84 

15.11.-18.11.84 

Ludwigshafen 

Computertage ’84 

23.11. - 25.11.84 

Fulda 

Bayerischer Computertäg 

nur 02.12.84 

München 

Gomputertage ’84 

03!i2..-05.12.84 

Heidelberg 

Hessischer Computertag 

nur 09.12.84 

Neu-Isenburg 

Computertage ’85 

08.01. -10.01.85 

Heilbronn 

Computertage ’85 

16,01. - 18i01.85 

Wesel 

Microcomputer ’85 

29.01. - 03.02.85 

Frankfurt/M 

Gomputertage ’85 

22.02.-24.02.85 

Recklinghausen 

Computertage’85 

28.02. - 03.03.85 

Oberhausen 

Computertage’85 . 

15.03, - 17.03.85 

Mainz 

Computertage’85 

03.05. - 05.05.85 

Bochum 

Gomputertage *85 

03.05. - 05.05.85 

Mönchengladb. 

Computer & Communication ’85 

15.05. - 1^.05.85 

Sindelfingen 
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Texteditor 

für den ZX-Spectrum 


Dieses Programm ist ein seiten¬ 
orientierter Texteditor. Man Jiat ins¬ 
gesamt zwanzig Seiten zu Verfügung, 
die man einzeln bearbeiten, drucken, 
abspeichem oder einladen kann. 
Bedienungsanleitung: 

Nach dem Start des Programmes er¬ 
scheint das Hauptmenü. Durch 
Drücken des entsprechenden Buchsta¬ 
bens springt man zu den einzelnen 
Menüpunkten. 

Die Menüpunkte: 

Einzelne Zeilen drucken: 

Diese Routine ist dazu da, einzelne. 
Bildschirmzeilen (-bereiche) auf dem 
Drucker auszugeben. Man gibt zuerst 
die Seite ein, von der gedruckt werden 
soll, . und darauf die Start- und 
Enddruckzeile (Die Zeilen gehen von 
1-22). Die jeweiligen Zeilen werden 
dann gedruckt 
Eigene Zeichen kreieren: 

Dieser Editor hat die Mö^chkeit init 14 
selbstdefinierten Zeichen zu arbeiten. 
Man erreicht sie im "Seiten-bearbeiten- 
Modus” mit GRAPHICS und dann 
den Großbuchstaben. Nach dem Auf¬ 
ruf der "’Zeichen-Kreieren-Routine” 
wird ein Untei>Menü angezeigt Mit a.) 
kann man ein eigenes Zeichen kreie¬ 
ren. Dies tut man, indem man eiii 8 mal 


8 Quadrat mit Punlden und Leer¬ 
zeichen ausfüllt Die Anleitung steht 
auf dem Schirm. Wenn man mit Enter 
diesen Modus verlassen hat, muß das 
neu zu definierende Zeichen (H-U) ge¬ 
drückt werden. 

Mit b.) kann man sich die aktuellen 
Graphik-Zeichen ansehen. 

Saven: ' 

Savenwird dazu benutzt, entweder eine 
Seite oder die Graphik-Zeichen auf 
Cassette zu speichern. Nach jedem Save 
hat man die Möglichkeit, das gerade 
gesavede mit Verify zu überprüfen. 
Laden: 

Man kann entwteder eine Seite oder die 
Graphik-Zeichen von Kassette einla¬ 
den. Es ist egal, welche Seite man ein¬ 
lädt, d.h. man kann eine ehemalige 
Seite 5 nun als Seite 10 einladen. 

Eine Seite bearbeiten: 

Dies ist die eigentliche Büdschirm- 
Editor-Routine. Nach Eingabe der ge¬ 
wünschten Seite wird ihr Inhalt auf 
dem Schirm gezeigt Die einzelnen 
Editier-Möglichkeiten werden mit 
Symbol-Shift + i angezeigt 
Das Programm beenden: 
Selbster&ärend 

Sollte während des ”Seite-bearbeiten- 


Modus” aus Versehen Break gedrückt 
werden, kann man mit Continue 
weitermachen. In irgendeinem ande- 
reri Modus Goto 1000 eingeben. 

Mit Run 9999 wird das Programm ab¬ 
gespeichert und verifiziert 

Programmaufbau: 

10-410: Irdtialisierung 
1000-1460: Hauptmenü, ruft die einzel¬ 
nen-Menüpunkte auf 
2000-2100: Programmende 
2500-2870: Befehlsliste fiir den Seite- 
bearbeiten-jModus ausgeben 
,7000-7290: Drucken einzelner Zeilen 
einer Seite 

7500-7790: Menüpunkt Eigene-Zeichen- 
Kreieren ' 

8000-9190: Eigentliche Schirm-Editor 
Routine. Sie ist leicht auf eigene Be¬ 
dürfnisse zuzuschneidem 
9200-9240: Den Schirm in den Haupt¬ 
speicher T§ (max, 22,32) übertragen 
9300-9350: Eine Seite auf den Schirm 
übertragen 

9500-9690: Seite oder Graphikzeichen 
einladen 

9700-9920: Seite oder Graphikzeichen 
abspeichem 

9999: Programm, abspeichern 


90 

100 

_il0 


I 300 
I 0..36 
: 21® 
^ Q j 0 

030 
0,4.0 
330 
J.64- 
4.00 
4-10 

i-gt® 

J.020 


1 rIm t*^****^^***-»»»»»»**«.»«. 

2 RCM # '»«»^«rieben von: * 

* Rrna Koschet f 

I 10.11.1983 I 

* ■ Rtle Rechte £ 

5 REH I Vorbehalten # 

I V 

GRA • REM 

LbIb 

0: PAPER 0: jnk 7: C 


1 Einzelne Z 

Eigene Zeic 

“äwveir«" 
Laden . *' 

Eine Seite 

f) Das Progr 


1NKEV*=' 


9020 IF 1NKEV*='\ 
THEN GO TO 2100 


2030 IF 2NKEYäl*“n" Ol 
THEN OO TO 1000 
204-0 30 TO 2020 
2-100 CLS : GO TO 16 4- 
" 2300 REH' saBBHnaB 


LS 

1030 PRINT RT 0 , 3 ;"B*Idschir»edi 

1040 PRINT RT 2.12; INÜERSE l; " 
MENÜ •• 

1060 PRINT RT 4.2f "Wa-h.len s i« bi 
t te : ** 

1070 PRINT RT e.4;**a.> Einzelne z 
eilen drucken." ^ . 

1030 PRINT TRB 4;"faJ Eigene Zeic 
hen kreieren." _ 

ISSO-PRIiTP Tfiö- -Sifveir.,, 

1100 PRINT TRB 4;"d) Laden." 

1130 -PRINT TRB 4;“eJ Eine Seite 
bearbei ten i *' 

12S0 PRINT ^'TRB 4;"f) Das Progr 

1300 ^LET^a*=INKEY*,; IF a*<"a" OR 
a•>"f" THEN OO TO 1300 
1310 IF a4="e" TNEN GG SÜB 7000 
'1320 IF a*="b" THEN GO SUB 7500 
1330 IF a*="C" THEN 60 TO 9700 
1340 IF THEN CO TO 9S00 

1360 IF a*="e" THEN ÖO SUB 0400: 

GO SUB 9300: GO SUB 3000 
1460 IF a*="f" THEN 60 TD 2000 
1460 OD TD100B^ 

iolo CLS T^RII^ RT 10.,0; "Uotten 
sie das Progra»» beenden?(J=Ja 
nanein) drücken." 


OR INKEY*a"U" 
ÖR INKEY*="N“ 
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asa0 CLS 

2520 PRINT RT 0,5; INUER5E I;"Sc> 
rsen-Edi tor-B£ ffeh le*‘ 
asso PRINT flT 2,0;"Taste(n) ”;TR 
B 10;“Sc fehl- 

2540 PRINT '"C-Sh43”iTRe 10;"Z€i 

Chen cinfü^en” 

2550 PRINT "C—Sh40“;TftB 10;"ZeiC 
hen löschen" 

2560 PRINT "C-Sh4l";TRe lO; "Zci l 
e einfügen“ ' "C-Sh+2*v;TftB l0;“Zei 
le löschen*’ 

2570 PRINT *'C-Sh+5”;TftS 10; "Curs 
or linKs"'**C-Sh46";TRB lO; "Curso 
r rechts” 

2580 PRINT ”C-5h +6";TRB 10;"Curs 
or runter” ' ••c-Sh47";TRB i0;*'Cürs 
or hoch" 

2500 PRINT ”C-Sh+4.";TRß 10; "Zei t 
e abschneiden" 

2600 PRINT ”C-6h46-6h”;TaB 10;”« 
enö" 

2610 PRINT "C-Sh+0";TRB 10;"Crap 
hi x-üfisch#a iter'' 

2620 PRINT ”S-Sh4i”;TRß 10;"Dies 
e Be fchis listc" 

2630 PRINT ”S-Sh4it”;TRB 10; "öi tsi 
schirm löschen" 

2640 PRINT "S-6h+e";TRB 10;"kinK 
e obere Ecke'* 

2650 PRINT "S-Sh‘f»";TRB 10; "Nach 
sta Seite" 

2660 PRINT '”C-Ch = Caps-Shift”; 
TRB o; "S-Sh =f 6g»JbtOi/t 
2650 PRINT «liRT 1,2; "Sitte R ^ 
Röcksprung drOcKen" 

2860 XF INKE^-^isr-r” OR XNK£Y9i^'*R^^ 
^THEN^RETURN^_^ 

tIÜ ^LS 

ie die Seite ein, von derZeilen 
gedruckt werden sollen." 

7030 CO SUB 9400 _ - 

7040 GQ 6ÜB 3300: REIt IBEBBBKBBS 


040>GD SUB 9300: REM 


TRB • 



PR 

INT RT 


RT 

6 ^ 3 ; 


RT 

a©..©; 

“ 9 

/4 

;**a) E: 


■7©©0 Cl_S " 

7S10 FOR i«CODE "R** TO CODE "U” . 
7620 PRINT "Graphics + ";CHR$ £ 
; s ";CHRSi U +79> 

7S30 NEXT i 

7640 PRINT ” Bitte r * ROckspru 
ng drücken** 

7550 IP INKEV$ = "r:‘ THEN RETURN 
7660 CO TO 7650 

7699 

7700 CL.S 

7702 PRINT RT 0 ,15;"PfeiHasten; 
••;TRB 15; "Fahren" ' *TRB 15; "P fei l 


tasten";TRB 15;"+ Caps-Shift:”;T 

RB 15;"Maien- trb is;"Pfeiitast 

en";TRB 15 ;"4 Sgmb.-Shift:";TRB 
15; "Löschen" * 'TRB 15; "Enter.- ••;TR 
B 15;"ROcksprung" 

7703 PRINT RT 4,4;"aaaaaaaaaa"; fi 
T 13, 4 ; : FOR i «5 TO 

12 : PRINT RT i,4;"e : H. 

7705'lET X=5: LET y=5: DIM Z$C8, 
83: FOR i sl TO B: LET 
00000": NEXT i 

7710 PRINT RT X,,y; OUER !;•*■": P 
RUSE S; PRINT OOER 1; RTT X ,u; 

7715 LET Cd=CODE INKEY^i: IF C4<B 
ÖR cd>11 THEN IF Cd<53 OR Cd>56 
THEN IF Cd<37 QR Cd>40 THEM XF 
Cd 0 13 THEN GO TO 771© 

772© IF CdÄl3 THEN GO TO 7750 

7721 IF Cd>«8 RND Cd <mll THEN PR 
INT RT x,y;”B**: -LET Z*CX-4^g-4i » 

7722 IF Cd>=37 RND Cd<=40 THEN F 

KINT RT M;y;" LET i$CX-4^y-4> 

7725 LET X^xVitCdsria OR Cd»54 OR 
Cd=3a3 RND X<12) t (Cd=ll OR Cd = 
55 OR Cd»393 RND X>53 
7730 LET g»y4C<Cd»9 OR Cd»56 OR 
cd»403 RND u<123-(icd»8 OR cd»5S 
OR Cd=373 ÄND y>5> . 

7750 IF Cd 013 THEN GO TO 7710 
7755 CLS : PRINT RT 9^0;"Welches 
Zeichen CM-U3 soll gea'nder 

t werden "; FLRSH i; "7” 

7760 LET b* = INKEY4: IF b*.< "H” OR 
b»>”U" THEN GO TO 7760 
7765 FOR i»0 TO 7: PORE USR b«>4-i 
,URL ("BIN ”+Z$Ci+133: NEXT i 
7770 CLS : PRINT RT 9,0;"GraphiC 
s + ";b*;" ist Jetzt ";CHR4 CCOD 
E b4+793 

7775 PRINT '''"Sollen »eitere Zc 
ichen geYmdert »erden (jrn3 ”T 

7730 LET b4»XNKEY4: IF b*«" j** TH 
EN GO TO 7700 

7785 IF b1l="n" THEN RETtlRN 

7790 GO TO 7780 __ 

3000 REM 
3010 LET gra=0 

8020 LET SX=1: LET SY=1: REM 

I ilMHIIl I WM l»! III \M Ml REM EBI^HhK 


aaSö PRINT Ikl; AT O^O; INUERSE 1; 

; "Sei te ; se i ; RT 1 .. 0 ; “Sya bo i -Shi 

ft +,i » Befehisliste" 

3060 PRINT Itl; ZNUERSE 1 ; RT ©.16 
; ("Graphics" RND gra3 ^(**l■lii■■■■ 
RND NOT gra3 . 

6100 PRihrr RT sx- 1 ^ 0 ; s* (SX3 ; RT 
3X-1..SV-1; FLRSH 1;S$>CSX^SV3 
Silo LET Ci»CODE INKEY$: IF Ci=0 

THEN GO TO 8110 _ 

8120 REM jSHuHBBHHBBHBBBBHB 
8140 PRir-nr «t sx-i^sy-i; inuerse 
a;S$(sx.SY3 

8180 IF CI<32 OR CI>122 THEN GO 

TO ©300 _ 

8165 REH JBBH 

317© IF GRR»1 RND CI>»65 RND CI< 
=35 THEN LET CI=Cl479 
6180 LET SJk CSX,SY3 *CHR* CI 
3190 PRINT RT SK^1,SY-1; ItWERSE 


©;S*(SXj_SY3 
3200 LET SY=5Y+1 


6220 IF SV >=33 THEN LET SY=1: 
LET SX»5X^ CSX <223 
.sa*30 GO T O 8100 
3330 REH 
6340 IF CI=a 
O TO 8180 

6i360 IF CI»197 THEN LET CI=93: G 

o TO siao 

8380 IF Cl=226 THEN LET 01=126: 
GO TO 8180 

3400 IF CI«195 THEN LET CZ=124: 
•30 TO 3180 • 

^6420 IF CI=205 THEN LET CI=92; G 
O TO 8180 

3440 ZF CZ»204 THEN LET CZ»123: 

GO TO 8130 • 

34S0 IF 01=203 THEN LET CX=125: 

GO TO 81 80 

8480 REH aHHGIB 

S500 IF CI=172 THEN GO SUB 2500: 


SmSMBett 1924 


HöM§€ompi/nn 13i 































Cl -5 : rOR 1=1 TD as: PRINT S»ti 
y : NEXT i : GQ TQ 
Bsaa REM BHBS 

S54.0 IF CI«a0a THEN I^ET SX=!L: LE 
T SY^l: GQ T O ©100 
©S©0 REM BBB 

3330 IF CI«1Q9 THEN CLS : L.ET SX. 
ä 1: LET SY»1: DIM S«<aa^3a) : GG 

TG ©05© _^ 

©500 REM MlnMIMB 

aea© if cz«i3 then let sx»sx4-(s.x 
< 22) : LET SVa 
©54.0 REM 
3550 IF C 
; GO TO 3 0S0 
3530 REH flBHBB 

aas© IF ci=rl4. THEN GQ SUB 2200: 
RETURN • . 

ST4.0 IF CI < >12 THEN GO TO SSOO 
3750 IF SYsl THEN LET S*tSXysS*C 
5X..a TO > +•• •*: GO TO 010© 

3750.LET ©ftSX)sS«tSX^ TOSY-13+ 
3Si C5X^SY+l TO rv'' t GO TO 5100 


3800 REM 

©505 IF CI 04 . THEN GO TO 8820 
3 S 10 IF SY «1 THEN LET S$ (SX) «*• •* 

4 ^S$(SX> TQ 31 ): GO TO 3100 
3 S 1 S LET (SX)=S*(SX. TO SY- 1 )+ 
-‘^-SS tB X^SY TQ Sl> : G Q TO ©100 
3820 REH saSBBBBBB 
saso IF Clos THEN GO TO 3 S 60 
SS 4.0 LET SY=SV- 1 : IF SY <sO THEN 
LET SY« 32 : LET, SX«SX- 1 : IF SX<«© 
THEN LET SX«!: LET SY «1 
SSSQ Gp Tp _81 0g» ^ 

ii?© IF^C?<^^^^^P^^TO 8900 
©SSO LET SY«SY-f*l: IF SY > «33 THEN 
LET SY«1: LET SXsSX^l: IF SX>«a 
2 THEN LET SX«1 
©890 GÖ TO 8100 
3900 REM 

3910 IF CI«11 THEN LET SX=SX-(SX 
>1>: GO TQ 8100 

©930 IF^C^^!^tWen*1^^ 5X«SX-KSX 
-:22) : GO TO 8100 
©94.0 REM 

©950 IF CI«5 THEN LET S*(SX)«S*( 
SX , TO SY)-l-LS(l): GO TO 8100 
©960 REH HMBiteH im ii 
-^970 IF CI«7 THEN LET SY«1: FOR 
J=22 TO SX+ (SX i >22) STEP -I: LET 
- S^(I)«©*(1-1): PRINT RT 1-1,0;S 
*CI): NEXT I: LET S*(SX) «L*(1) : 

GO TO 3100_ • 

3980 REH 

8990 IF CX«Ö TMCn Lei SY=1: FOR 
X=3X TO 21: LET S* CZ) «S* (X-f 1) : P 
RXNT RT X-li.0j:S*(I) : NEXT I: LET 
S*(22) sL*(l> : PRINT RT 21>0;L*A' 
1) : GC TQ 8100 

9010 IF Ci«201 THEN GO SUB 9200: 

LET S5i « Csei/'f'l RND sei <Max) -^<l 
RND sei >=ttax): GO SUB 9300: GO T- 
O 3000 

9190 GO^ XO^J310 0 

92^ LET T* (SEryX) «S*(I) 

9230 NEXT I 
924.0 RETURN 
9300 HEM 
931© CLS 
9320 FOR 
9330 LE 




9320 FOR I«i TO 22 

9330 LET S*(I)«T*(SEI,X)i PRINT 
S*(I) 

934.0 NEXT I 

9350 RETU RN ^ ^ 

94. lO t e Seite ( 

tmax); ”) einge ben - .LINE b* 

94.15 IF LEN b*<l QR LEN b*>2 THE 
GO TO 941 © 

9417 FOR i«1 TO LEN b*: IF b*(i) 
OR b$ti) >"9'" THEN GO TO 941 


9417 

0 

94.18 
942© 
> XNT 
94.30 
9500 
9505 


NEXT i: LET sei«URL b* 

IF sei <1 OR sei >«ax* OR sei < 
sei THEN GÖ TO 9410 
RETU RN ^ — ■■ ■ =««=»« 

CLS l len 

^'} RT' '10*, 4; **'5 5- di-ne-'Gel*te* 


en-'\:RT 12,4; “b) Graphikzeichen 
( a 4 e n ** 

9510 IF INKEY*«**a” THEN GO TO 95 

■20 

9513 IF INKEY*«-b" THEN GO TO'' 96 

30 - . ' 

9517 GO TO 9510. 

9520 CLS : PRINT RT 10,0;”UelChe 
Seite sott get^deTi -ÄetdeTi'?'" 

9530 GO SUB 9400 

9540 CLS : PRINT RT 10,2;"Bitte 
stellen sie den Recorder auf 
FLRSH l;"PLRV"; FLsR.SH 0;"^" 

9550 LORD i t e DFfT R S*^* t ) 

95S0 GO SUB ^9200: REH idbHBBKSÜK 

XNT : PRINT "Söll nOCh ei 
ne Seite geladen t^erden < 


9570 PRINT : PRINT "Söll nOCh €1 
ne Seite geladen t^erden < 

o** • ■ ‘ ^ 

9530 IF INKEY*«"J" THEN GO TO 95 

• 2 © . . • . 

9585 IF INKEY* = "n" THEN GO TO 10 

03 

959© GO 

9600 CLS lO, 0; "Bi t te 

stellen sie ihren Recorderauf 
FLASH l; "PLRY"*; FLASH O; " . ” 

9510 LORD -EditgrafiK"CODE USR " 
a”,,21a.8 

9S90 GO TO 10g^_ 

9700 REM iTTifT^ilnrinrBl 

9710 CLS : PRINT RT 5 , 3 ;"Uollen 
Sie; ";RT. 8,4.:-a) Eine Seite save 
j-L. - ; RT 10.4;-b) Die Graphi kzei ch 
en saven." 

9715 LET b*=INKEY*: IF b*<>-a- R 
HD b*<>-b*V THEN GO TO 9715 
9720 IF 9350 

9730 CLS : PRINT 10,0; "Üe LChe 

Seite soll gesavt werdenT“ 

9735 GO SUB 9400 

9740 GO SUB 9300; REM SBH9HBB 


9745 CLS : PRINT RT ©,0;"Ziehen 
Sie den ERR St,ec4er 4%era^js > 

stetien sie den Recorder^u/ 
FLASH l;"RUFNAME"; FLASH ©;" und 
drocKen sie eine Taste." 

9750 SAUE "Seite” DATA S *() 

3755 CLS : PRINT PCT 10,0; "liönscb 

en Sie uerify £j/n) 7" 

9756 IF INKEY*«"J" THEN GO TO 97 

©0 

9757 IF INKEV*«"n" THEN GO TO 97 

9© 

975S GO. TO 9755 

9760 CLS : PRINT RT -lO, 0; "SpU len 
Sie f O r " ; FLRSH 1; " UERXFY" ; FL 
RSH 0;" den Recorder zurüc 

,k:. und stellen sie ihn auf FLA 

SH i;“PLRY-; FLASH ©;'*-*• 

9750 UERIFY' "Sei te " DATA s * < ) 
9790 PRINT "Söll noch eine Seite 
uerden ij^n) 7" 

9800 IF.INKEY*«"i" THEN GO TO 97 


0© 

9310 

0© 

9320 

9849 

9350 


IF IWKEY*="n" THEN GO TO 


GO TO 
REH B 
CLS : 


9350 CLS : PRINT RT 10.^0; "Bitte 
stsiien Sie den Recorder auf 

FLRSH , l; "RUFNRHE"FLRSH O; ", U 
nd drücKen"^"sie eine Taste." 
9 SS© SAUE "Edi t 9 rafilc"CODE USR " 
ax".. 21*8 

9370 CLS : PRINT RT 10 , 0 ;"WpnscH 
en sie UeriF.y 7 *''* 

'9330 IF INKEY*«"j" THEN GO TO 99 
S© 

9385 IF INKEY*«"n" THEN GÖ TO 10 
©0 

9390 GO TO 9380 

9900 CLS : PRINT AT 10 , 0 ;"Bitte 
sPuien Sie den Recorder zurocx 
und stellen sie ihn aüf"^ FLRS 
H l;"PLAYV; FLASH 0 ;"." 

9 S 10 UERIFY "Editgra/iK"CODE USR 
•3",2HfS ^ 

3920 GO TO 1000 

9999 CLEAR : ' SAUE "Editor" LINE 
1 : SAUE "Editor" LINE 1 : SRUE "E 
dit ö r" LINE 1 : UERIFY "": UERIFY 
: UERIFY •• •• 


;"Bitte 
zurocx 
f " FLRS 

CODE USR 


■" LINE 
SRUE "E 
UERIFY 
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Air Battle 

für den ZX Spectrum 48K 

o • 


Air-Battle ist ein Spiel für zwei Perso- el, fl: Alte Position des 2. Flugzeuges Programmaufbau zu Listing 2 ”Air- 
nen.JederäerbeidenSpieleristPilotei- zum Löschen des Zeichens auf der Battle”: 

nes Flugzeuges und hat die Aufgabe, Position e,.f ^ . lOVariablenfürdengesamtenSpielab- 

das Flugzeug des Gegenspielers zu zer- g, h: Position des abstürzenden oder lauf; die Spielanleitung wird auf¬ 

stören. Man kann das gegnerische des schießenden Flugzeuges ’ gerafen 
Flugzeug abdrängen und abschießen. glj hl: Position des Schußes Hauptprogramm 

Vorher muß man sich aber erst eine g2, h2: Richtung des Schußes 20 Spielfeldaufbau mit Anzeigen und 

günsüge Position erkämpfen, um dann g3, h3: Letzte Position des Schußes Ausdruck des Gesamtpunktestandes 

sicher zuschlagen zji können. Wäh- h 4: Senkrechte Position des Schußes 40-80 Variablen für ein Spiel 

rend des Luftkampfes müssen die Spie- t, u: Zeit;’f’ist die größere Einheit .110-140 Tastenabfragung und ent- 

ler darauf achten, daß sie nicht auf die i, j: Variablen für Schleifen und zum sprechende Änderung der Grafikzei- 

Startbahn stürzen, in die Anzeige flie- Speichern von Positionen in Unter- chen ' 

gen, vom Gegner abgeschossen werden Programmen ' 160-270. Bestimmung der neuen 

oder kollidieren. Manchmal hat man il: Farbe des abstürzenden Flugzeuges Flugzeugposition 

GlückundentgehteinerKollision, aber q: Abgeschossenes Flugzeug (3 = 310-330 Abfrage nach unerlaubten 

(0 eben nur manchmal... beide, bei Kollision) Höhen und Kollision 

Wird man trotz aller Vorsicht zer- k: Schuß überschreitet Spielfeldrand 410-430 Ausdruck der Flugzeuge 

stört, so explodiert das Hugzeug und ' 440 Uhr, ist die Variable’t’< 0,-dann 

stürzt ab. Der Pilot landet sicher mit Variablenfelder: springt das Programm zum Spielende 

dem Fallschirm und hat sofort eine p(): Punktestand der beiden Spieler 450 Ausdruck der Zeit 

neue Maschine zur Verfügung. , Der o(): Gesamtpunktestand beider Spieler 470-480 Schußabfrage 

Spielfeldrand stellt kein Hindernis dar. sf): Die besten 10 Ergebnisse 490 Abfragen werden wiederholt 

Sollte ein Flugzeug oder ein Schuß den s$0! Die Namen der besten 10 Spieler Unterprogramme 

Spielfeldrand überschreiten, so er- 510-580 Spielende; der Spiel- und Ge- 

scheint er auf der entgegengesetzten Programmaufbau zu Listing 1 ”Lande- samtpunktestand, sowie der Sieger wer^ 

Seite. Zögern Sie eine Entscheidung menü”: den ausgedruckt 

nicht zu lange hinaus, denn das Spiel 5 Grafik-A wird definiert 580 High-Score-Table und Tastaturbe¬ 
ist zeitlich begrenzt Ist die Zeit abge- 10-20 Definition der Titelschrift legung werden aufgerufen 

laufen, so werden der Spielstand, der 30 Scrollen der Titelschrift auf dem 600-695 Absturz eines Flugzeuges 

Sieger und das Gesamtergebnis aus- Bildschirm > 690-695 Punkte- und Gesamtpunkte¬ 
gedruckt Das Gesamtergebnis be- . 40 Aufruf der Unterprogramme stand werden ausgedruckt 

.inhaltet alle Flugzeuge, die bisher vom 100-120 Der Orginalzeichensatz wird 700-890 Schuß 

Spieler zerstört wurden. Hat man eines aus dem ROM ins RAM kopiert 710-770 Bestimmung der Schuß- 

der 10 besten Ergebnisse erzielt so darf 130 Umsclialten auf den neuen richtung und der letzten Schuß- 

man seinen Namen eintragen und er- Zeichensatz Position 

scheint auf dem "High-Score-Table”. 140-150 Einlesen des lieuen Zeichen- 900-960 High-Score-Table 

Gesamtpunktestand und High-Score- satzes 910-920 Punktestände werden ver- 

Table erlauben einen Vergleich unter 170 Unterprogramm zum Einpoken glichen 

mehreren Personen. Erklärung der Ta- der Datas 930 Eventuelle Eingabe des Namens 

sten und Anzeigen sind in der Spielan- 190-220 Neuer Zeichensatz: Zahlen 0-9 940-950 Ausdruck des High-Score- 

leitung enthalten. . 240-320 Neuer Zeichensatz: Groß- Tables 

buchstaben A-Z. - 1000-1180 UDG’s 

Variablenliste: 350-430 Anweisungen 1200-1350 Spielfeldaufbau 

a,.b: Zeichencodes der Flugzeuge 410 Sound 1550^1710 Spielanleitung, Erklärung 

c, d: Position des 1. Flugzeuges . 430 Laden des Hauptprogrammes der Anzeigen und Tasten 

e, f: Position des 2. Flugzeuges 450 Abspeichern und Vergleichen des 1750 Abspeichem und Vergleichen 

cl, dl: Alte Position des L Flugzeuges Lademenüs des Programmes 

zum Löschen des Zeichens auf der 

Position c, d , ' ’ ■ 


sepTSMBen i984 


HmtemPHTtn 





Jx 

11: INK 9: BORDER o: PAPER o: 
CLS : CLEAR 64598; DIM a«(20,32 

) 

5 RESTORE : FOR i^USR "a" TO ' 
USR "b"-!; READ j; POKE i,j: NEX 
T i; DATA 8,3,127,127,62,8,28,8 

10 LET AAA A 

AAAA" 

11 LET a«(2)«“ AAA 

A A": LET a*(3)=a*(2) 

12 LET a»(4)«" AAAAA A 

AAAAA AA" 

13 LET a»(5)=:" A A A 

A A-: LET a»(6)=a!t(5) : LET a»( 
7)«a»(6) 

14 LET a*(9)*”. AAAAAAAA 

Aaaaaaaa** 

15 LET a»(10)«" A 

A- 

16 LET a«(ll)»", AAAA AAA A 

A A AAAAA” 

17 LET a*(12)«” A A AAA¬ 
AA A": LET a«(13)*a*(12) 

18 LET aS(14)»” AAAAA AAAAA A 

A A AAAAA" 

19 LET a»(15)«" A A A A A 

A A A”: LET aS(16)sa«(15) 

20 LET a«(17)«" AAAAA A A A 
A AAAAA AAAAA" 

30 PRINT AT 21,O; POKE 23692,2 
2: FOR i=l TO 2b: BEEP .02,30.5: 

BEEP .02,30: PRINT INK 5ja»(i) 

: NEXT i 

40 30 SUB 350: GO SUB 370: GO 
SUB 380 

100 FOR i*0 TO 767 

110 POKE 64599+i,PEEK (15616+i) 

120 NEXT i 

130 POKE 23606,87: P0KE23607,25 

1 

140 RESTORE 190: FOR i=128 TO 2 
00 STEP 8: FOR j*0 TO 7: READ k: 
80 SUB 170: NEXT j: NEXT i 
150 FOR i*264 TO 464 STEP St FO 
R j*0 TO 7: READ k: 60 SUB 170! 
NEXT j: NEXT i 
160 60 TO 400 

170 POKE 64599+i+j,k: RETURN 
190 DATA 0,126,98,114,106,102,1 
26,0,0,56,24,24,24,24,126,0,0,12 
6,6,6,126,^6,126,0 
200 DATA 0,126,6,62,6,6,126,0,0 
,28,44,76,126,12,12,0,0,126,64,1 
26,6,70,126,0 

210 DATA 0,126,96,126,98,98,126 
,0,0,126,6,12,24,24,24,0,0,126,9 
8,126,98,98,126,0 
220 DATA 0,126,70,70,126,6,6,0 
240 DATA .0,126,98,126,98,98,98, 
0,0,124,100,126,98,98j126,0,0, 12 
6,96,96^96,96,126,0 
250 DATA 0,112,102,98,98,102,11 
2,0,0,126,96,126,96,96,126,0,0,1 
26,96,126,96,96,96,0 
260 DATA 0,126,96,96,110,98,126 
,0,0,98,98,126,98,98,98,0,0,24,2 
4,24,24,24,24,0 

270 DATA 0,6,6,6,6,70,126,0,0,9 
8,100,120,104,100,96,0,0,96,96,9 
6,96,96,126,0 

280 DATA 0,126,106,106,106,106, 
106,0,0,126,98,98,98,98,98,0,0,1 
26,98,93,98,98,126,0 
290 DATA 0,126,98,126,96,96,96, 
0,0,126,98,93,106102,126,0,0,124 
,100,126,98,98,98,0 
300 DATA 0,126,96,126,126,6,126 
,0.0,126,24,24,24,24,24,0,0,98,9 


8,98798,98,126,0 
310 DATA 0,98,98,98,98,36,24,0, 
0,106,106,106,106,106,126,0,0,66 
,36,24,24,36,66,0 
320 DATA 0,98,98,126,24,24,24,0 

,0,126,126,8,16,126,126;b 
350 PRINT AT 9,8r PAPER 45 FLAS 
H 15"DAS BAND STOPPEN": FOR i-0 
TÖ 19: BEEP .2,20: BEEP .2,25: N 
EXT i: PRINT AT 9, 85a»( 8 ) 

360 FOR 1*18 TO 9 STEP -l: BEEP 
.1,20+i: PRINT AT 19, 15 PAPER.’6 
5"(c) -BY M.HOPPE"5 PAPER 05" 

NEXT i: RETURN 

-'370 FOR i*0 TO lO: BEEP .1,30+1 
: PRINT AT 20,15 PAPER 25"BITTE 
WARTEN"lAT 2Ö,i-l5 PAPER 05" "S 
NEXT 1: RETURN 

380 PRINT AT.21^25 FLASH 15 PAP 
ER‘15"ZEICHENSATZ WIRD GESPEICHE 
RT": BEEP . 2 , 40 : RETURN 
400 PRINT AT 21,25" "5 FLASH 15 
PAPER 35 "ZEICHENSATZ IST GESPEI 
CHERT": PRINT AT 20,05 a»(8) 

410 FOR 1*.09 TO .05 STEP -.02: 
FOR j*-5 TO 7: BEEP l,j+0: BEEP 
i,j+3: BEEP l,j+7: BEEP i,j+12: 
BEEP l,j+15: BEEP i,j+19: BEEP 
i,j+24: BEEP l,j+19: BEEP l,j+15 
; BEEP i,j+12: BEEP l,j+7: BEEP 
i,j+3: NEXT j: NEXT 1 
420 PRINT AT 21,Q5aS(8)5AT 9,85 
FLASH 15 PAPER 45"DAS.BAND STAR 
TEN": FOR 1*0 TO 39: BEEP .05,20 
: BEEP .05,25: NEXT i: PRINT AT 
9,85a»(8) 

430 30 SUB 370 : PRINT AT 21,35 
FLASH 1 ; PAPER 15" AIR^BATTLE W 
IRD GELADEN ": BEEP .2,35: INK 
o: LOAD "" 

450 SAVE "LADEMENUE“ LINE 1: VE 
RIFY "" 


LISTING 2 


1 FOR 1*18 TO 21 : PRINT AT 1, 
05 PAPER 05 " 

": NEXT i: PRINT AT 
7,85 PAPER 45 FLASH 15 "DASSBAND 
STOPPEN": FOR 1*0 TO 19: BEEP .0 
5,30: BEEP .05,35: NEXT i 

5 INK O: BRtGHT 0 : .POKE 23658 
,8: POKE 23609,100: POKE 23562,0 
10 DIM bS( 10,10): DIM s(10): D 
IM p(2): DIM 0 ( 2 ): 60 SUB looo: 
60 SUB 150p: CLS 

20 BORDER 7:' PAPER 7: CLS : 30 
SUB 1200 : 60 SUB 690 
. 40_DIM p(2): LET t*2: LET u=10 
o: LET k*0 

60 LET a«146: LET c*21: LET d* 
O: LET cl*c: LET dl*d 

80 LET b*150: LET e«21: LET f» 
31: LET el»e: LET -fl«f 
110 IF IN 63486<255 THEN LET a 
*a-l; IF a<144 THEN LET a«151 
120 IF IN 57342<255 THEN LET b 
*b-i; IF b<144 THEN LET b»15.1 
130 IF IV 64510<255 THEN LET a 
»a+i: IF a>151 THEN LET a»144 
140 IF IN 61438<255 THEN LET b 
*b+i: IF b>151 THEN. LET b*144 
160 IF a<146 OR a*151 THEN LET 
c*c-l 


170 IF b<146 OR b*151 THEN LET 
e*e-l 

180 IF a>144 AND a<148 THEN UE 
T d*d+l 

190 IF b>144 AND b<148 THEN LE 
T f*f+l 

200 IF a>146 AND a<150 THEN LE 
T c*c+l 

210 IF b>146 AND b<150 THEN. LE 
T e=e+l 

220 IF a>148 THEN LET d*d-l 
230 IF b>148 THEN LET f*f-l 
240 IF d<0 THEN LET d*31 
250 IF. f<0 THEN LET f*31 
260 IF d>31 THEN LET d*0 
270 IF -f >31 THEN LET f*0 
310 IF 'C<5 OR c>21 THEN LET q* 
1 : 30*. SUB. 600 

320 IF e<5 OR e>21 THEN LET q* 
2 : 60 SUB 600 

330 IF c*e AND d*f THEN LET q* 
3: GO SUB 600 

410 PRlNT AT cl,dl;" "|AT c,d! 
INK 2ICHR« BEEP .0015,28-c: L 
ET cl=c: LET <ll=d 
420 PRINT AT el,-fl|" "SAT e,f; 
INK lICHR* b: BEEP .0015,28-.: L 
ET el=e': LET +l=f 
430 PRINT AT 2,11} INK 2iCHR» 
»}AT 2,20} INK 1.}CHR* b 
440 LET u«*u-ll IF u<0 THEN LET 
t-t-l: LET u-99: IF t<0 THEN G 
0 TO 500 

450 BRIGHT 1: PAPER 4: INK 7: P 
RINT AT 3,14}t}AT 3,18-LEN STR* 
u}u: IF ui«9 THEN PRINT AT 3,16} 
o: BRIGHT o: PAPER 7: INK 0 
460 BRIGHT O: PAPER 7: INK 0 
470 IF IN 65022<255 THEN LET w 
LET g»c: LET h=d: LET i-.: L 
ET j«f: LET q-2: LET il-2: GO SU 
B 700 

480 IF IN 49150<255 THEN LET w 
«b: LET g*.: LET h=+: LET.i-cl: 
LET j«dl: LET q«!: LET il=i: GO 
SUB 700 
490 GO TO 100 

510 PRINT FLASH 1} BRIGHT 1}AT 
7,11}“GAME OVER“} FLASH- O}AT 9 
,11"SPIELSTAND“ 

520 LET i*«STR* p(1)+“:“+STR* p 
(2): PRINT AT 11,18-LEN f*} INK 
5}}i» 

530 IF p<l)>pt2) THEN LET i=l: 
GO TO 560 

540 IF p(2)>ptl) THEN LET 1=2: 
GO TO 560 

550 PRINT AT 13,9}“UNENTSCHIEDE 
N! ": GO- TO 570 

560 PRINT AT 13,5}“SPIELER “}!} 
“ HAT GEWONNEN“ ' 

570 PRINT AT 15,9} BRIGHT 1}“GE 
SAMTERGEBNIS*: LET 1*-STR» Q(!)••• 
“:“+STR» 0(2): PRINT AT 17,18-LE 
N 1»} INK 3}i» 

580 60 SUB 900: 60 SUB 1640: CL 
S : GO TO 20 

610 IF q-l THEN LET g-c: LET h 
»d:.LET C‘«2i: LET d>=0: LET .■>146 
:. LET p(2)-p}2>+i: LET o(2)“o(2) 
+ l; PRINT AT cl,'dl}“ “ 

620 IF q«2 THEN LET LET h 

■■f: LET,e=2l: LET ■f>»3l: LET b=15 
O: LET p(l)>*p<l)+l: LET o<l)-o<l 
)+i: PRINT AT #l,f1}“ “ 

630 IF q“3 THEN LET g-c: LET h 
=d: LET c-2i: LET d-O: LET .»21: 
LET +=31: LET .»146: LET b»150: 
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Für 1*1 TO 2: LET p(i)=^(i)+i: 
LET o(i)*a(i)+l: NEXT i; PRINT A 
T cl,dl5 ’• ";AT el,fl 5 - - 
640 IF g<5 THEN LET g«5 
650 IF g>21 THEN LET g*21 
660 FÜR i »0 TO 7: BORDER i: BEE 
P .,15,-40-i: PRINT AT g,hi INK i 
r"N": NEXT i: LET g*g+i: IF g>21 
THEN LET g«21 

670 fÖr i=g TO 21: PRINT AT i,h 
. J”E"5AT i-l,h;”«•*: BEEP .015,-40 
+i: BEEP .015,-45+i: NEXT i: FOR 
jsg-l TO 21: PRINT AT j,h;“ ";A 
T i“l,h 5 INK BORDER J/3 

: BEEP .02,-50+j: NEXT j 
680 FOR i=g TO 21: BEEP .0015,i 
:: PRINT AT i,h5“I"JAT i-l,h;" ” 

: FOR j *0 TO 15: NEXT j: NET i: 
PRINT AT i-l,h;“ « 

690 BRIGHT 1: INK 7: PRINT AT 3 
,4-LEN STR« p(l)i PAPER 25p(l); • 
BEEP .05,0: PRINT AT 3,30-LEN ST 
R« p(2)5 PAPER I5p(2): BEEP .05, 
5 

695 PRINT AT 3,8-LEN STR« o(l)5 
PAPER 250(1): BEEP .05,0: PRINT 
AT 3,27-LEN STR« o(2)5 PAPER l; 
0(2): BEEP .05,5; BRIGHT O: PAPE 
R 71 INK O: RETURN 
710 LET 91 = 9 :' LET hl*h: LET g2* 
O: LET h2*0: LET g3=gi: LET h3«h 
1 

720 IF W<146 OR w*151 THEN LET 
g 2 *-l: LET g3*g-4 
730 IF w>144 AND w<148 THEN LE 
T h 2 =l: LET h3*h+4 
740 IF w>146 AND w<150 THEN LE 
T g2*i: LET g3*g+4 
750 IF w>148 THEN LET h2«-l: L 
ET h3»h-4 

760 IF h3<0 THEN LET h3a31-ABS 
h3: LET* K=1 

770 IF h3>31 THEN LET h3»0+(h3 
-32): LET k»l 

780 LET gl«gl+g2: LET hl«hl+h2 
785 IF g2a-l AND gl<g3 THEN 60 
TO 860 

790 IF h2«-l AND hl<h3 THEN IF 
NOT k THEN 60 TO 860 
795 IF g2*l AND gl>g3 THEN 60 
TO 860 

800 IF h2«l AND hl>h3 THEN IF _ 
NOT k THEN 60 TO 860 
810 IF hl <0 THEN LET hl«31: LE 
T k»0 

820 IF hl>31 THEN LET hl« 0 : LE 
T k*0 

830 IF gl»i AND hl*! THEN 60 S 
UB 860: 60 SUB 600: RETURN 
840 IF gl<5 OR gl>21 THEN 60 S 
UB 86 p: RETURN 

850 PRINT AT gl,hi;'*J“: BEEP .0 
*15,-10: 60 SUB 86 O; 60 TO 780 
860 LET h4*hl-h2 
870 IF h4<0 THEN LET h4«31 
880 IF h4>31 THEN LET h4*0 
890* PRINT AT gl-g2,h45‘* ";AT g, 
h5 IHK il5CHR« w.: RETURN 
910.FOR i*l TO 2 : FOR a«l TO 10 
: IF p(i}<s(s) THEN NEXT ml 60 
TO 940 

920 IF sOlO THEN FOR j«10 TO 
s+i.STEP - 1 : LET*s«(J)*s«(j-1): 
LET s(j)*B(j-l): NEXT j 
930 PRINT AT 21 , 05 "BITTE NAMEN 
EINGEBEN SPIELER "5 FLASH 15" *5 
15" INPUT LINE s«(s); BEEP . 
05,40: BEEP .5,30: LET s(E)«p(i) 


940 NEXT i: BRIGHT l: BORDER O: 
PAPER p; CLS 

950 PRINt PAPER 25 INK 75“ 

HIGH-SCORE TABLE ••: > 

OR 5*1 TO 10 : BEEP .05,10+s: IF 
B(s) THEN PRINT AT 0+2*s, 9-LEN 
STR« s; INK 65 s;“ " 5 s«(s) 5 ^' - "5 
s(s) : NEXT B 

960 60 SUB 1710: BRIGHT 0: BORD 
ER 6: PAPER 6:‘ CLS : RETURN 
1010 RESTORE 1050: FOR i=USR "b" 
tO USR ••o"^7 

1020 READ j: POKE i,j: NEXT -i: R 
ETURN 

1050 DATA 8,22,46,29,186,244,232 
,64 

1060 DATA 0,190,148,253,255,125, 

20,62 V 

1070 DATA 64,208,200,116,186,92, 
44,16 

1080 DATA 8,28,8,62,127,127,8,8 
1090 DATA 2,11,19,46,93,58,52,8 
ilOO DATA 0,125,41,191,255,190,4 
0,124 

1110 DATA- 16, 104,116,56,93,47,23 
»2 

1120 DATA 56,124,68,40^16,56,16, 
40 

1130 DATA 0,0,0,16,1.6,0,0,0 
1140 DATA 0,255,17,238,170,238,1 
7,255 

1150‘DATA 24,60,102,195,153,153, 

195 ', 102 

1160 DATA 33,66,132,66,33,66,132 

,66 

1170 DATA 145,16,52,248,29,46,8, 
137 

IIÖO DATA 8,65,0,20,8,106,28,137 
1200 FOR i*0 TO 4: PRINT AT i,Oj 
PAPER 6}« 

NEXT i 

1210 PRINT AT 1 , 1 ; BRIGHT 1; INK 
75 PAPER 25 “PLAYER 1-fAT 1,23J 
PAPER 15"PLAYER 2"5AT l,14j PAPE 
R 4;"TIME" 

1220 PRINT AT 3,25 BRIGHT 15 INK 
75 PAPER 25 “00";AT 3,55"000“ 5 AT 
3,145#»APER 45"P:0P"5AT 3,245 P 
APER 15 "000"5AT 3,285"00" 

1230 PLOT 0,175: DRAW 255,O: DRA 
W 0 ,- 39 : DRAW -255,0: DRAW 0,39 
1240 PLOT 5|17l; DRAW 71,02 DRAW 
0,-3l: DRAW -6,02 DRAW 0,162 DR 
AW -60,02 DRAW 0,-152 DRAW -5,02 
DRAW 0,30 

1250 PLOT 180,1712 DRAW 71,02 DR 
AW 0,-31: DRAW - 6 , 0 : DRAW 0,162 
DRAW -60, 0 : DRAW 0,-152 DRAW -5, 

0 : DRAW 0,30 . 

1260 PLOT.14,1412 DRAW 0,122 DRA 
W 19,02 DRAW 0 ,- 12 : DRAW -18,0 
1270 PLOT*222,1412 DRAW 0,12: DR 
AW*19,0: DRAW 0 ,- 12 : DRAW -18,0 
1280 PLOT 38,141: DRAW 0,122 DRA ‘ 
W 27, 0 : DRAW 0 ,- 12 : DRAW -26,0 
1290 PLOT 190,1412 DRAW 0,122 DR • 
AW 27 , 0 : DRAW 0 ,- 12 : DRAW -26,0 
1300 PLOT 110,1412 DRAW 0,132 DR 
AW 35,02 DRAW 0,-13: DRAW -35,0 
1310 PLOT 110,157: DRAW 0,13: DR 
AW 35 , 0 : DRAW 0,-13: DRAW -35,0 
1320 PLOT 98^1492 DRAW -13,02 DR 
AW 0 , 12 : DRAW 13,02 DRAW 0,-12 
.1330 PLOT 170,1492 DRAW -13,0: D 
RAW 0,122 DRAW 13,02 DRAW 0,-12 
1340 PRINT # 05 AT 0,05 BRIGHT I 5 
PAPER 05 INK 75 "KKKKKKKKKKKKKKKK 
KKKKKKKKKKKKKKKK" 


1350 RETUN 

1550 BORDER 62 PAPER* 6: CLS 2 60 
SUB 1700: PRINT AT 4,95 PAPER 2 
5 INK 7 ;"SPIELANLEITUNG" 

1560 PRINT AT 6,05" JEDER DER B 
EIDEN SPIELER MUSS VERSUCHEN DA 
S C3EGNERISCHE FLUG- ZEUG IN* D 

ER BEGEBENEN ZEIT MOEGLICHST 

OFT ABZUSCHIESSEN ODER 

AB2UDRAENGEN. , DABEI MUSS 

JEDER SP-IELER AUF- PASSEN, DA 

SS ER NICHT IN DIE ANZEIGE FLI 
EGT, AUF DEN BODEN STUERZT ODE 
R VOM GEGNERISCHEN FLUGZEUG A 

BGESCHOSSEN WIRD. JEDESMAL B 

EKOMMT DER GEGEN- SPIELER 

EINEN PUNKT AUF SEIN PUN 

KTEKONTO DAZU. DENKEN SIE 

AN DIE ZEIT...." 

1570 60 SUB 17102 CLS 2 GO SUB 1 
200 : PRINT AT 6,55 PAPER 65 BRIG 
HT 15 5"ERKLAERUNG DER ANZEIGE"; 
PRINT AT 2,115 INK 25"C"5AT 21,0 
5"C"5AT 2,201 INK 15"G"5AT 21,31 
S"6" 

1580 PRINT AT 9,25"IN DER MITTE 
KOENNEN SIE DIE VERBLEIBENDE 
ZEIT ABLESEN...." 

1590 PRINT AT 12,45"LINKS UND RE 
CHTS VON DER TIME-ANZEI6E 

KOENNEN SIE DIE STELLUNG 

IHRER FLUG- ZEUGE 

SEHEN, UM DAS UNTER 

SCHEIDEN DER FLUGZEUGE F 

UER S/W BE- NUTZER ZU E 

RLEICHTERN! LINKS «S 

PIELER 1 RECHTS-S 

PIELER 2" 

1600 60 SUB 1710 

1610 PRINT AT 9,25" JEWEILS GANZ 
AUSSEN. SEHEN SIE WIEVIE 


LE FLUGZEUGE, 
M LAUFENDEN 
OFFEN HABEN« 


SIE WIEVIE 
^lE IN DE 
SPIEL GETR 


DANEBEN SEHE 
N SIE DIE AN- ZAHL ALLER 

FLUGZEUGE DIE BISHER ^VOM 

SPIELER ZER- STOERT 

WURDEN!"5 

1620 FOR i«0 TO 962 PRINT " " 5 ; 
NEXT i 

1630 GO SUB 17102 CLS 2 60 SUB 1 
700 

1640 60 SUB 1700: PRINT AT 16,05 
•DIE TASTEN ZUR RICHTUNGSAEN- 
DERUN6 BEWIRKEN JE EINE DREHUNG 
UM 45 GRAD.": BRIGHT 
1 : INK 72 PRINT AT 4,105 PAPER 
35 "LINKS RECHTS SCHUSS" 

1650 PRINT AT 6,05 PAPER 25"PLAY 
ER 1 1 Q A • 

1660 PRINT AT 12,05 PAPER I 5 "PLA 
YER 2 0 P ENTER" 

1670 BRIGHT 02 INK 0: CIRCLE 99, 
100^16: CIRCLE 162,100,162 PRINT 
AT 7,125"<"5AT 11,125">"5AT 7,2 
05 ">" 5 Af 11,205 "<•: PRINT l*0|AT 
0 , 95 "UM ZU SPIELEN" 

1680 60 SUB 17102 RETURN 
1700 PRINT AT 0,11; BRIGHT I 5 PA 
PE 45"AIR-BATTLE"5AT 2,85 PAPER 
65 "(084 BY M.HOPPE": RETURN 
1710 PRINT » 05 AT 1,05 PAPER 05 B 
RIGHT 15 INK 75"DRUECKEN SIE IRG 
ENDEINE TASTE..."2 PAUSE 02 BEEP 
. 05 , 10 : BEEP .05,0: RETURN 
1750 SAVE "AIR-BATTLE" LINE 12 V 
ERIFY "" 
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Bubbier 

für den Atari 600/800 


Vielleicht erinnern Sie sich noch an 
den lustigen Wurm aus HOMECOM- 
PUTER7/84, der mitten in einem Laby¬ 
rinth Futterpillen fressen mußte und 
von Zeit zu Zeit sehr an Körperfülle zu¬ 
nahm. Unser Bubbier war damals für 
den VC-20 gedacht, hatte aber soviel 
Erfolg, daß wir uns entschlossen, ihn 
auch für andere Homecomputer zu 
präsentieren. 

Heute stellen wir Ihnen also die Atari- 
Fassung vor, für die jedoch einige Be¬ 
sonderheiten nachzütragen sind: 

- Die Geschwindigkeit ist am Anfang 

langsam und wird pro Runde immer 
schneller. - 

- Die Höchstgeschwindigkeit übeitrifft 
unserer Schätzung nach die des VC- 


- Die Grafik (die Zeichendefihierung) 
ist wesentlich besser. 

- Das Spiel hat kein Vorprogramm 

- Der Wurm wird nie vOii der Wachs’- 
&ankheit befallen. 

- Die Zeit ist sehr knapp bemessen. Sie 
reicht nur aus, wenn Sie den richtigen 
Weg wählen. 

- Das Spiel wird mit einem Joystick 
gesteuert’ 

- Die verbleibende Zeit ist an dem im¬ 
mer höher werdenden Hintergrundton 
zu erkennen. 

Das Spid ist auf allen Atari-Computern 
lauffähig. 



1 REM ***•*»*«•***»«•*****♦■ 

2 REM * ATARI BUBBLER # - 

3 REM * BY KEMAL EZCAN * 

4 REM * TEL. 0618187539 » 

5 REM ******************* 

10 PAeE=PEEK<106)-B:CHS=PAGE*256:GRAPHICB 18:? #6;’' PLEASE WAIT.'';P0KE 77.128 
20 FÜR 1=128 TO 471:PDKE CHS+1.PEEK<57344+1):NEXT 1:RESTQRE 28000 
30 READ C;IF CO-1 TWEN FQR 1=0 TO 7:READ A;POKE CHS+C»8+I.ArNEXT I:G0T0 30 
35 DIM X$(210).Y*(210) 

40 GOTO 6000 
50 REM SPIELBEGINN 
60 P=0:M=3:WT=20 

70 GRAPHICS 17:P0KE 756.PAGE:P0KE 708,62;POKE 709,104:PaKE 710,166:POKE 711,26 
100 REM NEUE RUNDE 

110 GOSUB 10000 . 

120 TIME=200;SWC=1,:CHR=131:DTS=114 - 

150 REM HAUPTSCHLEIFE 

151 FOR W=1 TD WT:NEXT W 

152 SOUND 0.0,0,0 

153 SOUND 3,40,8,RND<0)*10 

154 IF Z=7 THEN COLQR 7:PLOT X+XR,Y+YR 

160 POKE 77i,0:TIME=TIME-l:SOUND 1,TIME,10,2:SOUND 2,TIME+1,10,2;IF TIME=0 THEN 5000, 

170 ST=STICK(0):RX=XR;RY=YR 
180 IF ST=11 THEN XR=-1;YR=0:CHR=132 
190 IF ST=7 THEN XR=1:YR=0:CHR=131 
200 IF ST=14 THEN XR=0:YR=-1:CHR=129 
210 IF ST=13 THEN XR=0;YR=1:CHR=130 
230 LOCATE X+XR,Y+YR,Z:BFLG=0 

235 IF Z=7 THEN COLOR 7+128:PLOT X+XR,Y+YR;GOTO 150 

240 IF Z=32 THEN COLOR 133:PLOT X,Y;X=X+XR;Y=Y+YR;BFLG=1;COLOR CHR;PLOT X,Y - 

250 IF Z=169 THEN COLOR 133;PL0T X,Y:X=X+XR:Y=Y+YR:aFLG=l:COLOR CHR:PL0T X,Y;WW=2:GOSUB 1050:SOU 
ND 0,0,0,0 

260 IF Z=40 THEN COLOR 133;PL0T X,Y;X=X+XR:Y=Y+YR:BFLG=I;COLOR CHR;PLOT X,Y:G0SUB 1100 
270 IF Z=133 THEN 5000 

300 IF BFLG=1 THEN CT=CT+1;X$,(CT,CT)=CHR$<X);Y$<CT,CT)=CHR$<Y):WW=WW-<WW>0);IF WW=0 THEN GOSUB 1 
000 " ' . 

990 GOTO 150 ' 

1000 REM ENTSCHLACKUNG • 

1010 COLOR 32:PL0T •ASC(X$(SWC.SWC)),ASC<Y$<SWC,SWC));SWC=SWC+<SWC<CT-4) 

1020 RETURN . , . ' , 

1050 SOUND 0,100,8,10;P=P+5:,P0SITI0N 6,1:? #65P:DTS=DTS-1;IF DTS=0 THEN 7000 
1060 RETURN 

•’1100 REM KIRSCHE GEFRESSEN 

1110 P=P+100;POSITION 6,1;? MSP - 

•1.120 FOR 1=1 TO '5: SOUND 0,1*10,8,15; GOSUB 1000; NEXT I ' 









1130 RETURN 

5000 POP :POP ;POP !M=M-lsPQSITION iv0:? #6;M:SOUND 3,0,0,0:SOUND 2,0,0,0 

5010 COLOR 134:PLOT X.Y , .. . ' . ' ’ 

5020,FQR 1=15 TO 0 STEP -1 • 

5030'FOR ü=0‘TO 40 STEP 5:SOUND 0,U,S,I:SOUND 1,U,4-I:NEXT U:POKE 71l,I:NEXT I ' 

5040 POKE 559,0?POKE 711,26sIF M>0 THEN 100 

5050 POKE 559,34 . 

6000 REM TITEL 

6010 GRAPHIC? ITsIF P>HP THEN HP=P;COLOR 132sPLOT 1S,1 . 

6020 POKE 756,PAQEsP0KE 709,62sPOKE'708,104sPOKE 710, 166 sP 0 KE'711,26 . 

6030 POSITION 0,0s? #6;"SCORE:“jP:? #6}"HIGH;"jHP 
6040 POSITION 3,6:? #6;"atari bubbler":ST=0 
6050 POSITION 2,12;? #6;."BY KEMAL EZCAN" 

6060 POSITION 4,20s? #6;"PRESS START" 

6070 A=132;G0SUB 6100:IF ST=1 THEN 50 
6080 A=129;G0SUB 6100:IF ST=i THEN 50 - 

6090 A=131;GQSUB 6100;IF ST=1 THEN 50 
6094 A=130;.GOSUB 6100: IF ST=1 THEN 50 

6096 GOTO 6070 - , ' , 

6100 COLOR A;PLOT 9,8;FOR 1=14 TO 0 STEP -2 ■ 

6110 SOUND 0-, 1,8,2s IF PEEK (53279) =6 THEN •ST=1 

• 6120. NEXT I:RETÜRN 

7000 POP sPOP sPOP :P=P+TIME*100;POSITION 6,1s? #6SP 
■ 7010 FOR 1=14 TO 0 STEP -2sA=INT(150*RND(i))+100sB=I.NT(150*RND(l))+100 - 

7020 FOR U=0 TO 90 STEP .4SS0UND 0,A-U, 10,1; SOUND l., B-U, 1%, IsNEXT UsNE)(T 1 . . 

- 7030 IF WT>0'THEN WT=WT-5 V 

7040 GOTO 100 ' . \ 

10000 REM LABYRINTHAUFBAU . 

• 10005 ? #6;cHR$(i25) ' N 

10010 POKE 559,0sPQSiTION-0,0s? #6{"LIVESs*'!Ms? #6 s"SCOREs"-5 P 

10020 COLOR 7 .. ' ; • ' • , , , . 

,10030 PLOT 0,2;DRAWT0' 18|2?DRAWT0 18,22:DRAWTO 0,22sbRAWtO 0,2sPLOT .9,3sDRAWT0 9,16 
10040 PLOT 2,4sDRAWT0 5,4sDRAWT0 5,.6:DRAWTQ 2,6sDRAWTQ 2,4 ; 

• 10050 PLOT 13,4;DRAWT0 i6,4:'DRAWT016,6sDRAWT0 13, 6 sDRAWT 0 13,4 
10060 PLOT 7,4sDRAWT0 7,8sDRAt»!T0 2,8sPLQT tl,4sDRAWT0 11 jSsDRAWTO 16,8 , ■ 

10070 PLOT 2,16sDRAWT0 2, lÖsDRAljITO 7, IQsDRAWTO .7,14;PL0T 6,14;PL0T 5,12sPL0T. .4,'12;DRAWT0 4,16:DR 
AWTO. 14,16 

' 10080 DRAWTO 14,12:PL0T 13', 12 . - 

_ 1Ö090 PLOT 12,14sPL0T ll,14sDRAWT0 11 , 10 :DRAWTO 16,10sDRAWTO 16,16 ' 

10100 PLOT 2,20;DRAWTO 2,18:DRAWTO 16,18;DRAWTÖ 16,20 ..... 

10110 PLOT 4,21sPL0T 4,20:'bRAWTO 14,20sPLÖT 14,21 

10120 COLOR 169 ' ■ - • . 

10130 PLOT 6,4:DRAWTO 6,7sDRAWTO 2,7sPLOT 12,4sDRAWTO 12,7sDRAWTO 16,7 

10140, PLOT 8,4;DRAWTO 8,15:DRAWTO'.5,15:DRAWTO 5,13:PLOT i, 13:DRAWTO 6;.llsDRAWT0 3,llsDRAWT0 3,17 
10150 DRAWTO 15,17sDBAWTÖ 15,llsDRAWTO 12,llsDRAWT0 12,13sPL0T 13,13;DRAWTO 13,15:DRAWTO. 10,15sD 
.RAWTO 10,4 - 

10160 PLOT 3,9:DRAWTO 7;?:PLOT 11,9:DRAWTO 15,9 
^ 10170 PLOT 2,17sPL0T M6,17sPL0T 3,21sDRAWT0 3,l'9sDRAWTO 15,19sDRAWT0 15,21 

10180-COLOR 40 ■ ■ ' . ' 

10190 PLOT 9,7sPLbT 2,9sPL0T 16,9:PL0T 9,18;PL0T 2 , 21 sPL 0 T 16,21 

10200 COLOR 133:PLOT 1,3:DRAWTO 5,3:COLOR 131:PLOT 6,3 
. 10210 X=6:Y=3sXR=0:YR=0sWW=0sCT=6 
10220 FOR 1=1 TD 6s,X$(I,I)=eHR$(I)sY$(I,^i)=eH?$:(3)sNEXT I 
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FQKE 559', 34; RETURN 

28000 DATA 1,90,219,255,189,195,255,255,126 
28010 DATA 2,126,255,255,219,219., 189^ 195,126 
28020 DATA 3,126,237,23J,255,222,225,255,126 
.28030 DATA 4,126,183,183;255,123,135,255,126. 
28040 DATA 5,255,255,255,255,255,255,255,255 
28050 DATA 6,145,82,0,27,216,0,74,137 
28060 DATA 7,255,189,219,255,255,219,189,255 
28070 DATA 8,15,58,102,244,214,111,13,6 . 
28080 DATA 9,0,0,0,24,24,0,0,0 
28090 DATA 127,0,0,0,0,0,0,0,126,-1 ^ 










Ich möchte von Ihrem Kassettenservice 
Gebrauch machen. Wie kann ich die 
Attftragsabwicklung beschleunigen, da 
Sie doch sicher erst einen Zahlungsein¬ 
gang prdfen, bevor die Jeweils bestellte 
Ware an den Kunden versandt wird ? 

Dr. W. Wendtlant 

Antwort: 

Ihre Frage freut uns, da sie sehr wichtig 
ist, leider aber wenig gestellt wird. In d.er 
Tat ist es so, daß wir prinzipiell gegen 
Vorkasse liefern, um nicht durch Be¬ 
stellungen, die nicht ernsthaft gemeint 
sind, mit erheblichen Kosten kon¬ 
frontiert zu werden. 

Was Ihre Frage nach der schnellsten 
Auftragsabwicklung betrifft, so raten 
wir Ihnen zum Euroscheck. Wenn Sie 
diesen "nur zur Verrechnung” ausstel¬ 
len, sind Sie weitgehendst gegen Miß-.. 
brauch geschützt, und wir können ver¬ 
gleichsweise rasch einen Zahlungsein¬ 
gang verbuchen. , 


Wie kann ich bei meinem Commodore 
VC-20 eilt Programm, das ich von Da- 
tasette lade, automatisch zum Laafen 
bringen, ohne daß ich erst RUN eintip¬ 
pen maß? 

C. Teming 

Antwort: 

Das ist bei allen Commodore- 
Rechnern seit den Tagen des legendä¬ 
ren PET ganz einfach: Bei einge¬ 
schalteter Datasette drücken Sie ganz 
einfach gleichzeitig SHIFT und RUN/ 
STOP. Schon Wird das nächste auf 
Band befindliche Pro^amm geladen 
und automatisch gestartet 




Ich besitze einen'C^4. Wie kann ich Ma¬ 
schinenprogramme in den Computer 
einladen? Maß ich hierpoken oder gibt 
es geeignete Basic^Befehle? Brauche ich 
irgendwelche Zusatzeinrichtungen Jür. 
den Computer? 

B. Mayeringk 

Antwort: 

Beruhigend dürfte für Sie vor allem 
sein, daß Zusatzgeräte nicht erforder¬ 
lich sind. GePOKEd werden muß auch 
nicht Sie laden ganz einfach mit 
LOAD. Wenn Sie eine Datasette ha¬ 
ben, so lautet die korrekte Synfe« LOAD 
”Name Ihres Programmes”,l,l. Bei 
Verwendung einer Floppy ent¬ 
sprechend LOAD”Name”,8,l (sollte es 
mit 8,I nicht gehen, probieren Sie es mit 

9,1). 


Ich habe mir vor kurzem einen Brother 
Ep 22 Schreibpnnter gekauft, den man 
mit der beigg^gten Software und dem 
dazugehörigen Druckerkabel mit Inter¬ 
facestecker auch a!bs Ausgabedrucker für 
den VC-20 nutzen kann. 

Leidßrläßtsich die RS232(V24) Schnitt¬ 
stelle mit der Software nicht genau ini¬ 
tialisieren. Die einzigen Zeichen,^ die 
' ausgegeben werden, sind " " und ” ”. 
Die Software soil im Direktmodus einge¬ 
geben werden. 

OPEN 2,2,2,CHR$(2)-i-CHR$(0): 
CMD2:LIST 

Nach mehreren vergeblichen Versuchen, 
auch, mit anderen Intialisierungen, habe 
ich aufgegeben. Vielleicht könnt Ihr mir 
weiterheferi. 

Noch drei Worte zu Eure/t Zeitschriften: 
” Macht weiter so" 

L. Rinke 

Antwort: 

Hier mußten unsere EDV-Experten 
passen, weil wir den EP-22 nicht im 
Haus haben. Wir müssen also diese 
Frage an unsere Leser weitergeben. 
Wer sich bei den Electronic Printern 
von BROTHER auskennt sollte uiis 
unbedingt schreiben, damit Ihnen schnell 
geholfen werden kann. 


Ich besitze einen ZX-81 (16K) und 
möchte jetzt auf ein anderes System um¬ 
steigen. Eigentlich wollte ich auf den 
VC-20 wec^eln, aber ein Verkäirferriet 
mir davon ab. Er sagte, dc^ der VC-20 
ab Herbst nicht mehr hergestellt wird. Er 
meinte, daß ich attf den C 16 warten 
sollte, der der Nochfolger des VC-20 
wird. Nun meine Frage: 

1. Rentiert sich das Warten auf den 
C16? 

2. Ist er besser als der VC-20? 

3. Wann kommt er ungefähr auf den 
Markt? 

4. Bringt dann HOMECOMPUTER , 
auch Programme für ihn? 

M. Greiner 

Antwort: 

Da der C 16 im wesentlichen lediglich 
ein etwas verbessertes!.Basic bietet da-' 
für aber auch ein Stück teurer als der 
VC-20 sein wird, raten wir Ihnen, sich; 
das reiflich zu überlegen. Prüfen Sie lie¬ 
ber, ob Sie nicht noch ein wenig dazu-; 
sparen und dann ein leistungsfähiger^ 
System erwerben sollten, zumindest ei-: 
nen C-64. 

. Im übrigen ist der C16 nur in Amerika; 
. erhältfich - es kann noch ein knappes 
Jahr dauern, bis er hier verfügbar sein' 
wird 

Selbstverständlich werden wir, sOfemj 
er in Deutschland, Österreich und der 
Schweiz vorliegt auch Programme für 
den C 16 anbieten. 


Da ich mir gern einen Bit 90 katfen ' 
würde, interessiertes mich, ob es über-:, 
haupt Programme Jur diesen Computer \ 
gibt. Sie haben zwar schon ein oder zwei 
Programme für den Bit-90 abgedruckt. 
Das ist mir aber zuwenig. Wann wird es • 
denn Spiele geben? Und wo? 

C. Friedrichsen 

Antwort: 

Da nicht nur Sie, sondern eine ganze 
Reihe weiterer Leser nach. Bit-Pro¬ 
grammen fragen, wollen wir Ihnen die 
■ Firma Wicosoft als Bezugsquelle nen¬ 
nen, die bereits eine Vielzahl Bit- 
Programme im Sortiment hat so zum 
Beispiel ein Biorhythmusprogramm, 
eine kleine Textverarbeitung (Text;9Ö), 
einen Assembler, eine Dateiver- 
waltung sowie eine ganze -Menge 
Spiele.- Hier die Ans,chrift WICÖ- 
SOFT, Jlordstr. 22, 3443 . Herles¬ 
hausen. 
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Ich habe schon einige Computerzeit- 
Schriften gelesen. Trotzdem muß ich 
imrner wieder zu CPU und HC zurück- 
' greifen, da Sie immer ein Prpgrammli- 
sting parat haheru Nun frage ich mich, 
i wie lange es Listings fiir meinen Com¬ 

puter (ZX Spectrum) gibt, da immerwie- 
der neue Computer hinzukommen. 

' Das wäre auch schon meine einzige 
,: Sorge, ansonsten bin ich mit Ihrer Zeit¬ 
schrift zufrieden. 

I PS.: Ich habe Ihnen ein Programmli- 
' • j sting beigefugt, das Sie vielleicht unter 
Tipsund Tricks zuordnen (und natürlich 
veröffentlichen) können. 


A. Lederer 


lO RBH SOUND BXPBRZHBNTE 
X09 FOR n-0 TO 09: RBRD Z: PORE 

nbxt n 

aoo DRTR 0,17.0^0 

,aa9,a05.181.3,020,17,100,0,187, 
297,90.1^9, 264 ., aSS , 92,297,199,16 

'lig RgN^OMlZB U8R 92030 
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Antwort: 

1 Selbstverständlich werden sowohl in 
:: CPU als auch in HOMECOMPUTER 
für Ihren Spectrum weiterhin Pro- 
: ^amme erscheinen. Neue Modelle 
. j kommen ja ständig auf den Markt Wir 

wären nicht CPU, wenn wir dann un- 
; sere Besitzer älterer Geräte im Stich 
I ließen! 

■■•1 . 


Ich habe folgende Fragen: 

1. Ich besitze seit einigen Monaten einen 
VC 20 und eineDatasette. Der Ladevor¬ 
gang eines 16K-Bit-Programmes dauert 
einige Minuten. Gibt es eine Möglich¬ 
keit, den Ladevotgang zü beschleunigen 
ohne einen Eingrw in das Gerät vorneh¬ 
men zu müssen? 

2. Gibt es einen List-Schutz, der während 
des Ladevorgangs bereits aktiv wird? 

N. Bollinger 

Antwort: 

Zu Ihrer ersten Frage können wirihnen 
raten, Ihren Fachhändler nach dem 
’Turbo-Tape”-Programm zu fragen, 
das ein spezielles TOS, also ein Tape 
Operating System darstellt und eine 
wesentliche Verkürzung der Ladezeit 
durch Erhöhung der Baudrate bietet 
Was den von Ihnen gewünschten List- 
Schutz betjrifft, so gibt es ihn in 
Deutschland noch nicht Entwickelt ist 
er aber bereits und wird mit Erfolg in 
vielen Industrieprogrammen benutzt 


Ich habe schon einige Computerzeit¬ 
schriftengelesen. Trotzdem muß ich im¬ 
mer wieder zu CPU und HC zurückgrei¬ 
fen, da Sie immerein Programmlisting 
parat haben. Nun frage ich mich, wie 
lange es Listingsfiir meinen Computer 
(ZX Spectrum) gibt, da immer wieder 
neue Computer hirau kommen. ’ 

Das wäre auch schon meine einzige Sor¬ 
ge, ansonsten bin ich mit Ihrer Zeit¬ 
schrift zufrieden. 

PS.: Ich habe Ihnen ein. Programmli¬ 
sting beigtfugt, das Sie vielleicht unter 
Tips und Trickszuordnen (und natürlich 
veröffentlichen) können. 

A. Lederer 


Antwort: 

Selbstverständlich werden sowohl in 
CPU als auch in HOMECOMPUTER 
für Ihren Spectrum weiterhin Pro¬ 
gramme erecheinen. Neue Modelle 
kommen ja ständig auf den Markt Wir 
wären nicht CPU, wenn wir dann un¬ 
sere Besitzer älterör Geräte im Stich 
ließen! 
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Zum Brigf von M. Kötfing, aus einem 
vorhergehenden HC^Hgft möchte ich 
folgendes arfuhreKMirist dieser Fehler 
auch schon aufggfällen. In meinem Fäll 
kam es zu dem Fehler, als ich das Mo¬ 
dul, ohne auf das Titelbild zurückzu¬ 
schalten, in die Konsole einschob. Dabei 
kann es passieren, dqß der Resetbtfehl 
nicht ausgefuhrt wird. Um solche Fehler 
zu vermeiden, schalte ich meinen TI erst 
aus, schiebe das Modul in den Slot und 
schalte dann erst wieder ein. So steht es 
auch in einigen Betriebsanleitungen zu 
den Modulen. Es gibt aber auch Module, 
welche nicht auf allen TI 99/4A laufen. 
Es kommt auf das Copyright-Jahr an. 
Zur Speicherplatzermittlung von F. 
Feusterund W. Schleiden kann man nur 
schmunzeln. Soweit mir bekannt ist, 
setzt sich 1 Byte aus 8 Bit zusammen und 
nicht aus. 8.50115 Bit Richtig wäre: 
lRAM^RAM-¥8 
2 GOSUB1 
RUN 

MEMORY FULL in 1 

Print RAM ergibt im Ext Basic 13.920, 

im n Basic ergibt das 14.536Byte. 

W. Bürger 


Ich würde michfreuen, wenn Sie mirfol- 
gende Fragen beantworten könnten: 

Ich besitze Listingsfiir den Spectrum, in 
denen Buchstaben unterstrichen sind 
Wie erreiche ich das? Dann habe ich 
noch eine Frage zum Computerposter 
*’6-\-T':Im Vorprogramm heißt es m ei¬ 
ner REM-Zeile ‘^Gestartet wird mit 
RAND USR16768“. Was ist damit ge¬ 
meint? Und zu guter letzt: Woher be¬ 
komme ich eine deutsche Anleitung zu 
FighterPilot? 

U. Hermanns 

Antwort: , 

Zu Ihrer ersten Frage können wir Ihnen 
miheilen, daß es sich hier um ein Gra¬ 
phikzeichen handelt, d.h. eine Kennt¬ 
lichmachung, daß Sie vor Betätigung 
der jeweiligen Zeichen (-Tasten) in den 
Graphic Mode gehen müssen. 

Frage Nr. 2: Hier handelt es sich um 
eine Verwechslung zwischen Spectrum 
und 2X-81, für was wir um Entschuldi¬ 
gung bitten. 

Die letzte Frage müssen wir unbeant¬ 
wortet an die Generalvertretung von 
Sinclair weitergeben. Schreiben Sie an 
SINCLAIR DEUTSCHLAND GmbH, 
Postfach, 8012 Ottobrunn 
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Diamantenmine 

für den VC-20 (GV) 


Als Schatzsucher sind .Sie in eine un¬ 
heimliche Diamantenmine geraten, die 
von einäugigen Robotern bewacht, 
wird! Sie müssen versuchen, die Schät¬ 
ze, die an verschiedenen Stellen sicht¬ 
bar werden, schnell genug zu erwi¬ 
schen. Haben Sie einen Schätz gefun¬ 
den, bekommen Sie je nach Größe 
Punkte. Wenn Sie einen Diamanten er¬ 
wischt haben, ^bts 100 Punkte, und Sie 
können für einige Zeit die Roboter fan¬ 
gen. Je nach Farbe wächst Ihr Punkte¬ 
stand. Der gefangene Roboter taucht 
an einer anderen Stelle wieder auf - 
und Sie können ihn vielleicht 
nochmal fangen. 

Sie haben drei Minuten Zeit Wenn Sie 
liach dieser Zeit mehr als 500 Punkte er¬ 
kämpft haben, bekommen Sie eine 
Bonusminute. Ihre Bestleistung wird 
’ festgehalten, und die verbrauchte Zeit 
können Sie ablesen. 

Vor jedem Spiel können Sie zwischen 8 
Schwierigkeitsstufen wählen. Bei jeder 
Stufe ändert sich die Mine, die Steinan¬ 
zahl und die Roboteranzahl (max. je¬ 
doch 3). 

. Um Ihnen die Sache noch schwerer zu 
machen, tauchen an verschiedenen 
Stellen der Mine Felsbrocken auf. Sie 
versperren Ihnen den Weg^ Nach-einer 
gewissen Zeit ändern die Steine ihren 
Standort Die Zeit richtet sich nach 
dem Schwierigkeitsgrad. 

Das Spiel besteht aus drei Program¬ 
men. Im ersten werden die neuen 
Zeichen und das Labyrinth festgele^ 
Das zweite Programm beinhaltet die 
grafisch interessant gestaltete. Erldä- 
rung. Im dritten beginnt das eigentliche 
Spiel. 

Es wird mit dem Joystick gespielt 
Wenn in der Erklärung der Befehl ‘Ta¬ 
ste drücken’ kommt kann man auch 
den Fire-Knopf drücken. Wenn Sie das 
Spiel mit der Tastatur steuern wollen, 
geben Sie bitte beim Hauptprogramm 
folgende Zeile ein: 

90 TA=PEEK(203):IFTA=45THEN 

FÖRA=200T0250:POKEA:NEXT: 

POKEO,0:GOTO140 

100IFTA 13THEN90 

230 TA=PEEK(203):IFTA=22THEN 

R=1 

240 IFTA=21THENR=-1 
250 IFTA=37THENR=22 
260 IFTA=13THENR=-22 

Die Richtungen: P=hoch, L=links, 
^=rechts, .=runter, :=Fire! 
viel Spaß bei der Schatzsuche!!! 


Der Bildschirm stellt die Diamanten- 160-22Ö: Eigentlicher Spielablauf 

mine dar. Die Labyrinthmauern sind 230-260: Joystickabfrage 

schwarz. Oben ist die High-Score bzw. 270-310: Männchen ausgeben 

Score-Anzeige,. unten auf dem Bild- 320-340: Prüfen, ob Richtung frei ist 

schirm die Time^.und Leveianzeige. 350: Zeitvariable (Steine) pm 1 

Die Schrift und die Zahlen ?ind negativ höhersetzen 

dargestellt so daß sie eiiien Teil der' 360-380: Steine neu postieren 

Mauern darstellen - zur platzein- 390: Zeitvariable (Schatz) um 1 

Sparung. höhersetzen 

Bei Spielbeginn ist das Männchen in 400-430: Schatz ausgeben 

der Bildschirmmitte. Die Figur ist rot 440-460: Schatzart mit RND bestim- 

ünd wenn ein Diamant gefunden nien 

wurde, verfärbt sii? siet cyan. Die Far- 470-480: Männchen blinkt mit Ton- 
ben wurden so gewählt daß sie auf ei- untermalung 

nem S/W-Femseher einen guten 490-550: Prüfen, ob Geist auf Hinder-. 

Kontrast ergeben. nis stößt 

An verschiedenen Stellen tauchen die 560: Geist löschen 

Roboter auf, die blau, grün bzw. violett 570-620: Geist ausgeben 

gefärbt sind. An anderen Stellen sind 630:2. Bewegung Geist 

grüne Felsbrocken, die während dem 640-660: Geist stößt auf Hindernis 

Spiel öfters ihren Standort wechseln. 670-680: Position neu bestimmen 

Die Anzaht sowie die Zeit wann sie 690-720: Geist vrarde gefangen 

den Platz wechseln, richtet sich nach 730-735: Männchen löst sich auf 

dena vorher eingestellten Level. 740: Mine veiyollständigen 

Die Spielfigur inacht von eineiri Bild- 750: Männchen in Zeichensatz poken 

schirmplatz zum anderen einen Zwi- 760-780: Labyrihth-Inhalt löschen 

schenschritt So wurde eine Animation 790-800: High-Score bestimmen - an 

erreicht Wenn das Männchen nicht Anfang zurück . 

bewegt wird, steht es aufrecht da - sonst 830: Prüfen, ob Bonusminute fällig 

sieht man an der Beinstellung immer 840-860: Bonus: Sound und Grafik 

die jeweilige Richtung. Die Roboter 

machen-auch einen'Zwischenschritt Variablenliste: 

bewegen sich aber dabei'selbst nicht F: Farbram 

Stoßen zwei Roboter zusammen, ver- J: Hilfsvariable für Joystickäbfrage 

schwindet ein Roboter und taucht an O: Höchster Tongenerator 

einer anderen Stelle wieder auf und es AS: Cursor auf 22. Zeile fahren 

ertönt ein dumpfes Geräusch. Prallt ein P,K,D! Hüfsvariablen für Bildschirm- 

Roboter gegen einen Felsbrocken, er- aufbau 

tönt ein hoher Ton, und er erscheint TT: Max. Spieldauer 

ebenfalls an eineränderen Stelle im Laby- ' TIS: Echtzeit 

rinth. Läuft ein Roboter gegen ein A,B: FOR/NEXT-Variablen . , 

anderes Hindernis, wechselt er die HS: High-Score 

Richtung. Wenn er aber das Männchen SC: Punkte 

berührt-und es hatvorher keinen Dia- L: Level , 

manteh gefunden-ist das Spiel aus: Die AG: Anzahl der Geister 

eigene Figur löst sich mit Soundunter- WW,GR(n),RR(n),GG: Hilfsvariable 

malungauft für lüchtungsveldor (Geister) 

Beim Titelbild des ersten Programmes G(ii): Geisterposition 
ertönt eine kleine Melodie. Die neuen X,Z: Kontrollvariable für Schatz 
Zeichen werden schon während dem V: Schatz-Position 
Titelbildaufbau definiert, wodurch W: Art des Schatzes 
Wartezeit für den Spieler entfällt VF: Schatzfarbe 

Das Hauptprogramm belegt mit allen S(n): Steinposition 
Variablen fast den ganzen Gmnd- T: Kontrollvariable für Steine 
versionsspeicher. MF: Männchenfarbe 

M: Position (Männchen) 

Programmaufbau R: Richtungsvektor 

5-20: Variablen definieren MM: Kontrollvariable für Männchen 

30-80: Bildschirmäufbau 0=Männchen ist noch frei 

90-130: ‘Level'-Bestimmung . l=Männchen wurde gefangen 

140-150: Spielstart (Zeit auf 0, Mine 

vereinfachen) 
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1 Rtn ätE*##ä(Sä»Eä»Sä(5}|fä|{*#if:ä(Si*i 

2 REM fDIflMflNTEHMINE* 

3 REM 

4 REM 

5 REM ANLEITUNG 

6 REM 

10 IFPEEK<7670)=1THEN30 

15 IFPEEK<7670>O0THENPRINT''n? ERRORÄ««" : END 
20 WRIT37151 j 64..64 = PQKE631.. 131 = P0KE198.. 1 = END 
30 PRINT"a":P0KE36869..255:P0KE36879>28:P0KE36878,15:P0KE657/128 
40 PRINT" »■»•llfliSPIELANLEITUNG%“Wlf»==««===“==-==*='' ‘ ‘ 

50 PRINT"!awa£;lE SIND IN EINER DI R-»l1fiNTENMlNE.. DIE EIN-" 

60 PRINT"aWREUGIE WESEN BEWRCHEN." 

70 PRINT" aWWENN SIE NACH DREI MlNWIINDESTENS 500 PUNKTE JIERREICHT HABEN..GIBT ES" 
80 PRINT" ».|OCH EINE BONUSMINUTE. " :GOSUB400 

90 PRINT"3SSB®!IDIE FELSBROCKEN BlüSSl VER-ÄSPERREN IHNEN DEN WEG.." 

0»=; PPTMT** *QLJPKJN fl'RPP PTW Pfl'RnTTFP" 

100 f^RINT'^aORRNSTOESSTi TAUCHT ER»RN EINEM ANDEREN.ORT )».JIEDER AUF.. WAS FUER!' 
110 PJ?1NT"SWSIE SEHR GEFAEHRLICH »WERDEN KANN.. DENN SIE"- 
120 PRINT"aWHABEN NUR EIN LEBEN !":GOSUB400 

140 PRINT"aSBIKEIN ISJSB KENNZEICHNET EI-:»HEN VERBORGENEN SCHATZ" 

150 PRlHT"a- WENN SIE IHN SCHNELLWSENUG ERWISCHEN. HEBENJj^IE IHN UND BEKOMMEN" 

160 PRINT. "jSÜMRSPUNKTEJJiiliiiilk.--" 

170 PRINT"ailitii»ilGOLDSTHUB"....."B!liiiiHaa= 10 PUNKTE" 

180 PRiNT"r»MiiiBa * 20 PUNKTE"."iraaaiwsa = 30 punkte".;"W iiBTKsa « 40 punkte" 
190 6O8UE400: PRINT"3«E»»iaieCHRTZTRUHE = ". "■»!Was=2UFAELLlGE PUNKTZAHL" 

200 PRINT"aawitiiD I R M A N T."."»*ffras = 100-PUNTE —a und;" 

210 PRINT"San4ENN SIE EINEN DIRMRN-KTEN.GEFUNDEN HABEN. »KOENNEN SIE FUER EINE 

220 PRINT")liaBEST.ZEIT DIE ROBOTTERi^FANGEN =" = GOSUB400 

230 PRINT"»»>iW^aa = 20 PUNKTE".. .."»MfiLSa = 40 PUNKTE" 

240 PRIHT"]l»lBtBLa * 60 PUNKTE" 

250 PRINT"M«aDA SIE.SO SCHNELL WIE WDIE ROEOTTER SIND. MIUESSEN SIE IHNEN ENT 

260 PRINT"aGEGENGEHEN.. UM SIE ZU »ERWISCHEN ZU KOENNEN !":GOSUB400 
270 PRINT'TJaaaES WIRD MIT DEM JQV- »JSTICK GESPIELT. " 

280 PRINT" a»ILIM DIE SCHWIERIGKEITS-»BTUFE EINZÜSTELLEN. »BITTE JOVSTICK NACH" 
290 PRINT" aWOBEN DRUECKEN".."»BPIELSTART: 'FIRE'KNOPF" 

300 PRINT" a»IBEI JEDER SCHWIERIG- »KEITSSTUFE VERAENDERT" 

310 PRINT"aWSICH TUE MINE ETWAS !" :GOSUB400 
320 PRINT":3";:POKE36869.240:POKE36879..8- 
330 •PRINT"|l|aBITTE «nPLRVia DRUEGKEN.a":GÖTO20 
400 A$="»»I»I»I»I»DIW[IID^^ DRUECKEN" 

410 FORA=lTO14:PRINTR$"Sk"LEFT»<B$.R)"B!C.":GOSUB440 
420 PRINTR$"a."LEFT$<B#.A)"i^G" :GOSUE440:NEXT:PRINTA$"Sfc."B$" " 

430 N=PEEK<203): IFN=64AND<PEEK<37151>RND32)O0THEN430 
435 RETURN 

440 FORE*185TO200!POKE36876.E;NEXT:POKE36876..0: RETURN 


0 REM 

1 REM äüDIRMANTENMINE# 

2 REM 

3 REM . ■ • 

4 REM ZEICHEN . ' 

5 REM DEFINIERUNG 

6 REM 

7 REM RAMIN.IRANNEJHD 

8 REM MANNHEIM.JUNI84 . 

9 REM , . . 

10 PRIHT"a"P0KE36879.. 8: P0KE36878.15 = P0KE55.. 0:P0KE56.28: CLR = P0KE657.. 128 

20 PRINT"CI»r«»il*44444444444444«4"."lii4 a »14" 

30 PRINT"WBl44444444444444444"."»[WWi*Mv'0N RAMIN IRANNEJAD" =0=7729 
40 FORD« 1 TO 13: READA.. E. F: POKEG. F: G=G+1: FORB= 1TOE = P0KE36875. A: NEKT 
50 F0RB=15T03STEP-. 25 = P0KE36878. BiNEXT = P0KE36875.8 •• P0KE3.6878.15 = NEXT 
60 F0RA=383Tb463': P0KE7168+A. 255-<PEEK<32768+A> > • NEXT = FORa=7527T07353 
70 POKEA.. 255 = NEXT :FGRA=383T0463:P0KE7168+R..255-<PEEK<32768+A>,3|: NEXT 
75 ,F0RA=7527T07535:POKEA.255:NEXT:G=0 

80 PRrNT"ll»l»WFUER VC20 GRUNDVERSIÖN" = F0RA=7168T075l 1 = READBi G=G+B:POKEA.B = NEXT 
.85. IF6<>31107THENPRINT"na? EINHGAEEFEHLERMW»1":END 
90 PRINT"yt»iiiitiiy3Bii ERkLAERUNG":."k»»BPitlgF5Bj SPIELSTART" 
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im BITTE UBEHLEN «" 

110 PRINT" a|"fl$:FORB=1TO50:B»PEEK<203) : IFBO64THEN140 
120 NEXT:PRIHT"k"R$: FORfl=lTO50: B=PEEKC203> : IFBO64THEN140 
130 NEXT'GOTO110 
140 IFBO47fiNDEO55THEN110 - 
150 1FE=47THENPOKE7670/1 
160 IFB=55THENPOKE7670..0 

170 PRINT"ns*IBITTE SISPLRVM DRÜECKEN." , rr...r 

180 WflIT37151^64.64:PRINT,”)(I««iMI- PK :P0KE631.. 131 :P0KE198.1 :END 
5000 IifiTfl235/ 15j 4>232..5/9^ 231»5^ 1 »229»5,. 13,231»5» 1»223» 20.. 14» 231»5 
5005 DRTR20» 225»20» 5» 232» 10» 14'» 223»30» 13»223»9» 9»225» 7»14»225» 7»5 
5010 IlifiTR107» 107» 107» 10» 107» 107» 107»255» 16»56» 16»56»84» 16» 40» 40» 16 
5015 DRTR56» 16»56»84»48»40»8»0»0»0,0» 16»56» 16»56,84»24»40»32»0..0»0 
5020 IliRTfl©» 16»56» 16»56»84» 16..40»72» 1»3» 1»3..5» 1»2..2»0» 128»0»128»64 
5025 DflTfl0» 128»64..0»0..0..0»0..0» 16,56..0..0»0»0»0»8»28..62..0»0»0»0» 16 
5030 DflTR56» 124»254»0»0,0»8»24»60»,126»255..'60»36»60»24» 126»24»36 
5035 DflTR102»0..0»0»0»60»36»60..24» 126»24»36j. 102»0»0»0..0»3»2..3» 1»7 
5040 DRTRl»2»6» 192,64.. 192» 128»224» 128» 64» 96» 8» 106» 123» 11 ..^235» 106» 8 
5045 DRTR255» 132» 181» 181» 180» 180 »-iei» 133»255»33» 173» 175»39»239» 109 
5050 DRTRiei»255»0»0»0» 16»40»84»40» 16»0»0»34»20»8»20»34»0»255»255 
5055 DRTR255»255»255»255»255»255»63»67»253»133»133»133»134»252»255 
5060 DRTR255..254»0»0»27.. 191»213»104..8..85»175.. 175..86»0.. 129..91..111 
5065 IIRTR253..96.0»21.. 187»223»70»0» 1,218»223» 112» 106,65,29» 171,125 
5070 DRTR6» 168»7»216» 141» 192» 110»224» 125» 128» 189»6» 168» 1»218» 1'83 
5075 DRTR244»104»80»21.. 189» 95» 86»0,0»31 »255» 255» 192»0»0»0»0»0»0»0 
5080 DRTR0»0,56»124»126»l26»124»48»0,0»0»0»0»0»0»0»0»255»112,118 
5085 DRTRl19»113»119.86»16»255»186»186»186»214»214»238»238»255»23 
5090 DRTR215» 246»55»246»213» 17»255 »SäIS» 22U221»221»221»221»255 

10 PRINT"r3" : 0=36876 = F=30720 = J=37151 :T=98 = 2=-2 = GR< 1 >=1 = GR<:2>=22 
20 GR<3>=-1 : GRC4>=-22 = P0KE0~7.. 255 : POKEO+2.. 15 = POKE.J+3» 127 = BF=200 
30 HS=l:L=i:P0KE657.. 128:P=7680:FORR=7360TO7424:K=128 
40 D=PEEK<R> : F0RB=1T08 : IFD~K>=0THEND=D-K : POKEF+P» 0 : POKEP» 22 
50 K=K/2:P=P+i:NEXTB»H 
60 MF=2:M=7932:P0KEM+F»2:P0Ket1..1 
70 SC=l:PRINT"iaiV@QRS"HS3|s-r'W.. ■'QRS"SC#“.1.’'WW' 

80 P0K.E0+3..BF:PRINTRf“#rX"Lä*-l"n" ^ 

90 IF<PEEK<J)flND32)=0THENFORR=200TO250 = POKEO» R = NEXT = POKEO» 0 = GOTO140 
100 IF<PEEK<J>RND4>O0THEN90 
110 L=L+i:iFL>8THENL=l 

120 FORR=1TO20'POKEO»230:NEXT:POKEO»0:BF=L+199 
130 GOTO80 

140 TT*300:TI#=‘'000000":flG=INT<L73>+l:REaTORE:FORH»lTO9-L 
145 RERDB:P0KEB»32:NEXT 

150 RRC1)=1:RR<2)«3 = RR<3>=1= F0RR=1T0RG = GOSUB670 = NEXT:T=80 
160 GOSUB230: POKEO ...0:6OSUB490:GOSUB390 
170 IFMF=3THENMK=MK“1:IFMK*<0THENMF=2 
180 IFR=0THENPOKEM»1:GOTO210 

190 POKEO» MF*70 : POKEN» 32 = M=M+R: IFRBS<R>=1THENP0KEM.. 5: GOTO210 
200 P0KEM»2 

210 POKEO»0:PRlNT"SS”»”i0RS"SC#-i:GQSUB630:T.FNM=lTHEN730 

215 PRI NTR$» " V& •' < " M I D$ CT I $»4»1 > " * " R I GHTf f. TI $»2 > " H" : IFVRL CT I * J .>=TTTHEN830 

220 GdsUB350:R=0:GOTO160 

230 IF<PEEKCJ+1)RND128>=0THEHR=1 

240 IFCPEEKCJ;JPND16>=0THENR=-1 

250 IFCPEEKCJ)RND8)=0THENR=22 

260 IFCPEEKCJ>RND4>=0THENR=-22 

270 GOSUB320:lFR=lTHENPOKEri..6:POKEM+l » 7 :RETURN 
280 IFR=-lTHENP0KEri}7:P0KEM-l»6:RETIJRN 
290 IFR=22THENP0KEM»3:P0KEM+22»4:RETIJRN 
300 IFR=--22THENP0KEri» 4: POKEM-22.. 3: RETURN 
310 RETURN 

320 IFPEEKCM+R>=21THENR=0:,GOSUB440: RETURN 
330 IFPEEK<M+R>O32THENR=0: RETURN 
340 POKEO»72ä|iMF:P0KEM+F+R..MF:RETURN 
350 T*T+1:IFT<R6«25THENRETURN 
360 T=0:FORfl=lTOL:POKESCR>»32 

■370 S<fi>=INTCRNDCl>#506+7680):lFPEEKCSCfl;)>O32THEN370 
380 POKEF+SCR!)»5 :POKESCR;j.. 33 :NEXT:RETURN • 
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X=X+1:IFX<2THENRETURN ' v 

X»0: 2=INT<RND< 1 :»#50>+10: POKEV.. 32 
V*INT<RND< 1 )3|5506)+7680: IFPEEK<V>032THEH42P' 

POKEF+V/ 6 :POKEV,21:RETÜRH 

FORD=230TO240:PpKEM+F/4:POKEO..D:POKEti+F7MF:NEXT 
POKEO7 0:GOSUB630:HEXT:RETURN «t»! 

FORflslTQflG 

W»<G<fl)>+GR<RR<(ü;)) :WWaPEEK<W) 

IFWWa33THENP0KE0+lji 245: GOSUE640: GOTO500 
IFWW<8flNDWW>0HNDMFa3THENGOSUB690:GOTO500 
lEWW<8fiNDWW>0flNDMFO3THEHMN=l: RETURN 
IFWW>12flNDWW<17THENP0KE0+l 7165: 6OSUB640: 6nTn500 
IFWW032THENRRCR>*INT<RND< 1 >äl«4)+i TgOT nSPü' ' 
P0KEG<R)..32:G<fl>=!W:P0KEW+F7 3+R ' 

GG=GR<RR<R>'> 

IF.GG=1THENP0KEW-QG7 15:P0KEM716 
IF6G=--1THENP0KEW-GG7 16:P0KEW.. 15 
IFGGa-22THENP0KEW-0Ö714-P0KEW713 
IFGG=22THENP0KEW-GG.. 13:P0KEW..14 . 

NEXT:RETURN 

FORRs 1TORG: POKEG <fi> -GR < RR C fl ') >.. 32: POKEG f. R > 7 12 = HEXT = RETIJPN 

P0KEG(:fl)732 

GCISUB670 

POKEF+G<fl> 7 4:PQKEG<fl) 7 12:PÖKEO+1 7 0:RETURN 
G<fi)*INT<RNDC 1 )H5506>+7680: IFPEEKC6CP;^>O32THEN670 
RETURN 

PC 1 KEO+1 7 160: POKEG < fl > 7 32 = GOSUB670 

SC=SC+flä|E20 

POKEO+170 

RETURN 

POKEM 71 :F0Rfl=7176T07182 = POKER 7 0 •FORB=128TO240STEP2:POKEO+1 7 B 
NEXTB 7 R:POKEM 7 41:POKEO+1 7 0 

RESTORE:FORflalTOS:RERDB:POKEB+F 7 0:POKEB 7 22 = HEXT 

POKEM 7 32:F0RR=7176T07182:RERDB:POKEfl7B:HEXT 

FORfl=lTOL •• POKES<fl:) 7 32: SCR>«0; NEXT 

FORfl= 1TORG •• POKEG < R > 7 32 = NEXT 

POKEV732:X=2:NM=0 

IFHS<SC:THENHS=SC 

6OTO60 

DRTR 77567 78287 79297 81237 79927 80277 79567 80937167 567167 567 847 16.40 
I FTT=400ORSC:<500THEN740 
PRINT'!^IfIl!II$[eM«I««a'^.'ini:<BkOniNf9J3E:lRIIMr; 

F0RB=1T08 •• FORR=l 10TO-110STEP-2 = POKEO-l 7 flBS<fl>+128 = NEXTfl, E: POKEO-1. R 
PRINT''B TI$="000300" :TTs:400:GOTn21?=i 
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Für alle Freaks, die auch vor dem Bildschirm nicht auf ein Karten¬ 
spielchen verzichten wollen, hat sich ein findiger Kopf aus Austria 
für HOMECOMPUTER was Besonderes einfallen lassen, die 
Computerversion des österreichischen Nationalsports Sichnapsen. 
Schnapsen ist ein Vergnügen für zwei Personen, nämlich Sie und 
den VC-.20... 


Aus einem Paket von'20 Karten erhält 
jeder Spieler fünfe, vom Rest wird eine 
Karte offen gefegt, die anderen verdeckt 
auf Stapel. Die offene Karte bestimmt 
den Atout (Trumpf). Für alle, die noch 
nicht "geschnapst” haben, hier die 
wichtigsten Regeln: Ziel des Spieles ist 
es, möglichst schnell 66 Punkte zu er¬ 
reichen, wobei Stiche und Ansagen des 
jeweiligen Spielers zusammengezählt 
werden. 

Wertung: 

As = 11 Punkte 
10er = 10 Punkte 
König = 4 Punkte 
Dame = 3 Punkte 
Bube = 2 Punkte 

Hat derjenige Spieler, der mit dem Aus- 
spielen an der Reihe ist, einen Buben, 
so kann er, falls auf der Trumpfkarte 
noch mehr als eine verdeckte Farbe 
liegt, seinen Buben gegen die Trumpf¬ 
karte austauschen, sofern diese höher¬ 
wertig ist. Der Computer macht von 
dieser Möglichkeit ohnehin Gebrauch. 
Jeder Tausch wird durch eine schmale 
Anzeige dokumentiert, und der Bube 
ersetzt die Atout-Karte unter dem 
Stoß. 

Besitzt ein Spieler einen König und 
eine Dame von der gleichen Farbe, so 
kann er, wenn er an der Reihe ist, ”20” 
ansagen, ”40”, wenn König oder Dame 
Trumpf sind. Diese Punkte werden 
vom System den einzelnen Spieler- 
Salden zugerechnet 
Glaubt ein Spieler, mit seinen fünf 
Karten über 65 zu kommen, so kann er 
"zudrehen”. (die unterste Atout-Karte 
wird auf den Stoß gefegt). Dies geht je¬ 
doch nur dann, wenn ein Kartenstoß 
hoch vorhanden und der Spieler an der 
Reihe ist Wenn "zugedreht” wird oder 
alle Karten verbraucht sind, besteht 
Färb- oder StichzWang. Wird eine 
Karte aufgespielt, besteht Farbzwang, 
d.h. der Gegner muß, falls er die gleiche 
Kartenfarbe hat, diese auch verwenden 
(Stichzwang besteht dann, wenn der 
Gegnhr eine Kartenfarbe ausspielt, die 
Sie nicht haben. Sie jedoch über eine 
Atout-Karte verfügen). 

Punktewertung: 

Das Spiel endet, wenn einer der Spieler 
66 oder mehr erreicht hat Derjenige, 
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der den fetzten Stich macht, gewinnt 
immer. Ist der Gegner ohne Stich, 
schreibt der Gewinner dreiPunkte. Hat 
der Gegner insgesamt weniger als 33 
Punkte, so schreibt der Gewinner zwei 
Punkte. Hat der Gegner mehr als 32 
. Punkte, dann schreibt der Gewinner ei¬ 
nen Punkt Hat ein Spieler sieben oder 
tnehr Endpunkte erreicht gibt’s für den 
Verlierer ein zusätzliches "Bummerl”. 
Der endgültige Verlierer ist derjenige, 
der die meisten "Bummerl” auf sich 
vereinigt 

Variablenliste: 

VC Zufallsgenerator generieren 
X,Y Arbeitsspeicher (Schleifen) 

A1,A2 X und- Y - Wert für Cursor 
(Ausdruck) 

A3,A4 Wert und Farbe der Karte des 
Spielers 

A5,Ä6 Wert und Farbe der Karte des 
Computers 

KS Punkteanzahl des Spielers 
KC Punkteanzahl des Computers 
AZ Kartenzählanzeiger 
A Wert der gewählten Karte (1-5) 

W Flag: gesetzt = Computer spielte 
aus 

ZD Flag; gesetzt = es wurde 
zugedreht 

G Flag: für Abfrageschleifen 
K Vergleichswert 
TR Farbe des Atouts (Trumpf) 
A7,A8,M,M1,M2,FF Hilfswerte 
(Zwischenspeicher) 

LL Auswertungsspeicher 
UU Flag: für Mindestwert 
TS Spielstand des Compters- 
SA Spielstand des Spielers 
J Wert der jeweiligen Karte (für 
Punktezählung) , 

CB Anzahl der "Bummerl” des Com¬ 
puters (Bummerl = verlorenes Spiel) 
BU Anzahl der "Bummerl” des 
Spielers 

U%(2) X-Y Wert für Karte unter 
Kartenstoß 

L%(2) X-Y Wert für verdeckten 
Kartenstoß 

Sl%(2) X-Y Wert für erste Spieltisch- 
IcHrtc 

S2%(2) X-Y Wert für zweite Spieltiscli- 
liCäirtc 

K%(5,2) X-Y Wert für die fünf Karten 
..des Spielers 

C(5) Wert und Farbe der fünf Karten 
des Computers__ 


S(5) Wert und Farbe der fünf Karten 
des Spielers 

K(20) Kartenwerte und Farben der 20 
Spielkarten (2-stellige Zahlen) 

1. Steife = Kartenwert; 

1 == As 

2 = König 

3 = Ober (Dame) 

4 = Unter (Bube) 

5 = Zehner (10) 

2. Steife = Farbe der Karte: 

1 = Herz 

2 = Pik (Laub) 

3 = Karo (Schelfe) 

4 = Eichel (Kreuz) 

V$ Verdeckten Kartenstoß zeichnen 
L$ Kartenlöschstring 
A$ Get-String 

^ K$(5,4) Kartenzeichenstring (Karten¬ 
wert, Kartenfarbe) 


Um das Programm zu laden, drücken Sie 
die SHIFT- und die RUNSTOP-Taste. 
Danach lädt sich das Programm, startet 
von selbst und ist nicht mehr unterbrech- 
bär. 


Zum Eingehen: 


0 POKE 44,27:POKE 6912,0;RUN 
POKE 44,32:POKE 8192,0:NEW (di¬ 
rekt eintippen) 

Zeichendataprogramm eingeben und 
starten. 

POKE 44,27:POKE 6912,0:NEW (di¬ 
rekt eintippen) 

Hauptprogramm eintippen Und Zeile 0 
löschen (Programm ist sonst nicht 
mehr zu stoppen)! 

Hauptprogramm testen 
Zeile 0 eingeben . 

POKE 44,18 

Save "SCHNAPSEN” 

Nun wird das Programm mit Basic- 
startveränderung, Zeiehensatz und 
Hauptprogramm auf einmal gesaved. 
Nun kann es jederzeit mit LOAD und 
RUN in den Computer gebracht und 
gespielt werden. 
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Programmerklärung: 

15 - 22 Bild.schinnbegrüßungsausdruck 

30 - 37 Erklärungen des Spieles (Tastenbelegun^ 

39 - 62 Wertzuordnungen, Mischen, Bildschirm- 

ausdruck 

63 - 71 Eingabe des Spielers 

72 - 86 Ausspielen der Karte des Spielers 

87 - 98 Spezialverzweigungen 

100 - 204 Computer wählt seine Karte 

1000- 1101 Computer gibt Karte zu - 

1300- 1312 Computer hat gestochen " 

1500- 1512 Spieler’hat gestochen 

1600- 1609 Spieler spielt weiter . 

1700 - 1709 Kartenstoß zu Ende 

2000- 2800 Auswertung wer wen sticht 

3000- 3504 Computer wählt seine Karte aus (-haustau- 

schen, -I-2Ö und 40er ansagen) 

5000 - 5010 Karte des Computers ausgedruckt 

6000 - 6010 Spieler sagt 20 an 

7000 - 7010 Spieler sagt 40 an 


7500 - 7502 Kartenstoß wird weggelöscht 

7800 - 7910 Kartenwerte für jeweiligen Stich ausge¬ 
rechnet 

8000 - 8004 Spieler dreht zu 

10000 -10512 Paketende: Computer wählt Karte aus 

11000-11502 Spielauswertung 

12000 -12003 Paketende: Computerkarte ausgedruckt. 
13000 -13002 Spieler schwindelt 

15000 -16003 Rücksetzroutinen 

17000-17005 Computer entscheidet wer als nächster 
beim neuen Spiel ausspielt 
18000-18021 Werbung 

19000-19001 Sound 

19500 - 20000 Zwischenwertungsminitabelle aus- 

drucken 

21000 - 21600 Erklärpngsstreifen ausdruckeh 

23000 - 23004 Spielende 

24000 - 24802 Kontrolle ob Spieler richtig spielt und die 

Regeln beachtet 


M! SO WIRDS GEMACHT !M 
STEUER UND GRAFIKZEICHEN 
WF DEM CBM 64 EINGEBEN 


S. HOME 
S_ CLR 

Q.CRSR DOUN 

S_ CRSR UP 

1 CRSR RIGHT 

a^CRSR LEFT 

£..F1, 

i_ F3 

a_F5 

tLF7 

i_F2 

j_F4 

L F6 . 

LF8 

E_CTRL BLK 
E.CTRL WHT 
CTRL RED 
QCTRL CYN 
_CTRL PUR 
1_CTRL GRN 
tCTRL BLU 
ilCTRL YEL 
JL C= BLK 
U_C= WHT 
.i2.C= RED 
!iLC= CYN 
>L C= PUR 
iLC= GRN 
2.C= PUR 
±C= YEL 


1 REM xxxxxxxxxxxxxxx 

2 REM X X , 

3 REM X SCHNAPSEN X 

4 REM X X 

5 REM xBY M.KRAUSLERx 

6 REM X X • 

7 REM X CCD 1984 x 

8 REM X . X 

9 REM xxxxxxxxxxxxxxx 

10 REM ZEICHEN-DAT 

AS 

1 r PR I NTFORX =0TO1023: P0KE5120+X, PEE 
KC33792+XD:NEXT:Y=0:RESTORE 

12 READA:IFA=-lTHENPRINT"sFERTie":END 

13 P0KE6144+YX8,A:FORX=0TO6:READA:P0KE61 
45+YX8+X,A:NEXT:Y=Y+1:60T012 

100 DATA0,0,0,0,0,0,0,0 

101 DATA54,127,127,127,62,28,8,0 

102 DATA0,16,56,124,254,254,254,108 

103 DATA8,28,62,127,127,28,62,0 

104 DATA0,124,56,254,254,124,56,16 
.105. DATA8,28,62,127,62,28,8,0 

106 DATA0,16,56,124,254,124,56,16 

107 DATA8,28,42,ll9,42,8,8,0 , 

108 DATA0,16,l6,84,238,84,56rl6 

109 DATA0,1,1,0,0,0,0,0 

1-10 DATA0,85,85,254,254,186,238,254 

111 DATA0,0,0,0,0,0,0,0 

112 DATA0,0,0,1,3,6,6,6 

113 DATA66,60,124,254,255,123,253,254 

114 DATA0,0,0,0,0,128,192,192 

115 DATA3,3,1,0,0,0,0,0 

116 DATA127,191,222,255', 127,62,60,66 

117 •■DATA96,96,96,192,128,0,0,0 

118 DATA0,0,0,0,0,0,0,0 

119 DATA127,119,93,127,127,170,170,0 

120 DATA0,0,0,0,0,128,128,0 

121 DATA0,1,3,2,4,14.,14,0 

122 DATA124,255,255,254,186,238,254,130 

123 DATA0',0,128,0,0,0,0,0 

124 DATA0,1,3*7,14,12,12,15 

125 DATA124,255,239,255,238,254,238,255' 

126 DATA0,0,128,192,192,192,192,192 
-127 DATA3,3,3,3,3,1,0,0 

128 DATA255,119,127,119,255,247,255,62 

129 DATA240,48,48,112,224,192,128,0 

130 DATA0,0,0,0,0,1,0,0 

131 DATA65,127,119,93,127,255,255,62 

132 DATA0,112,112,32,64,192,128,0 

133 .DATA0,0,0,0,7,3,0,0 

134 DATA0,0,0,0,0,0,0,0 

135 DATA0,16,124,254,255,255,186;238 

136 DATA0,0,0,0,192,128,0,0 

137 DATA0,0,0,0,1,3,7,6 

138 ÜATA254,130,124,25.4,255,255,125,253 

139 DATA0 .-2a,28,28,32,192,128,128 


140 DATA1,1,3,4,56,56,56,0 

141 DATA191,190,255,255,127,62,65,127 

142 DATA96,224,192,128,0,0,0,0, 

143 DATA0,0,l-,3,0,0,0,0 

144 DATAl19,93,255,255,127,62,8,0 

145 DATA0,0,192,224,0,0,0,0 

146 DATA0,0,0,0,1,2,0,0 

147 DATA16,56,124,56,255,254,188,238 

148 DATA0,0,0,0,0.128,0,0 

149 DATA0,0,0,0,1,3,7,7. 

150 DATA254,130,124,254,239.255,239,255 

151 DATA0,0,0,0,0,128,192,192 

152 DATA3,3,1,0,0,0,0,0 

153 DATA255,247,255,247,127,63,65,127 

154 DATA224,224,192,128,0.0,0,0 
-155 DATA0,0,1,0,0,0,0,0 

156 DATAl19.93,127,255,28,62,28,8 

157 DATA0.0,64,128,0,0,0.0 

158 DATA66.68,72,112,104,100,98,0 

159 DATA0;70,38,22,14,18,34,66 

160 DATA120,36,34,50,50,52,120,0 

161 DATA0,30,44,76,76,68,36,30 

162 DATA124,34,34,60,50,50,124.0 

163 DATA0,62,76,76,60,68,68.62 

164 DATA24,36,66,126,98,98,98,0 

165 DATA0 .70,70,70,126,66,36,24 

166 DATA8,24,40,12,12,12,62,0 

167 DATA0,124,48.48,48,20.24,16 

168 DATA24,36,66,98,98,36,24,0 

169 DAtA0,24,36,70,70,66,36,24,-1 

READY 


0 P0KE788,194:P0KE37150,2 
1 UC=RNDC-TID 
5 POKE650.64:.DIMKC213 

10 P0KE36869,192:P0KE36879,76:PRINTCHR^C 
142D+CHRiC8D:P0KE36864,13 

15 PRINT-‘ sQQgQDp x". 

16 PRINT"^ XXX 0. 

17 PRINT"1_, xxxxxxx x 

XXXXXXXX JS_ xxxxxxxxxxx“ 

18 PRINT"e_ xxxxxXxxxxxxx ^ xxxx 

xxxxxxxxxxx" 

19 PRINT" 0. xxxxxxxxxxxxxxx ±_xxxx 

xxxxxxxxxxx ±_ xxxxxxxxxxxxxxx" 

20 PRINT" iL xxxxxxxxx E_ 

.XXX ^ XXX" 

21 PRINT"Q. xxxxx 

, xxxxxxx" 

22 PRINT"Qe1.CCD UON W. KRAUSLER SQQIdx xx 
SCHNAPSEN. xxx":P0KE36878,15 

25 FORX=1TOI6:FORY =220-XTO160-XSTEP-5:PO 
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; '=ÖKE36876 . Y: ne 

:ifSSÄ^ 

: caf^sL' 

; F pRint"^ <- ■ - ^ 

. 34 PRINT"Qtd r’. lauschen" 

A ' 35 PRINT"ap2 ?■.. zu-drehen" -. 

I PRINT-Say fj’.*'' 40 fp ^"«aseh- « 

• ; K «l'"'nd.,„- -PI^INT 

i 50000*-‘™‘’‘'“'2)+CHR«C8).-pmHT-j;.Qo5ug ,' 

: ^j3rpog||||^ff|'P°KE368B0,205:PoKE3636, • 

! i iiiüiipiisr i' 

ipa^^sr:t. 

; 20000 '^^''^°'^^i98.0'I,FKS>=66THEN ' 

!■ . 

: 68 IFfl$:"D"AK"®^'^EN7000 ; « 

i el®?!! -.. . ''''°''''=®^N°P2<20THENGOS ;■ 

,' 20 A=UALCAi -• ^ 

; GOSUB21000 ; 

' 24 rF8fA^-fZ'^^'^20000 , ^ 

•NEXT;POKE36875*^0!^|o|usf;P®*^°R^=lTOl00 ! 

ee ^rÄÄ?|irS0T-«>™« . 

‘ K.«.O.P2-KPCP,0,iGOSU8,5000,pp,H •' 


Aöü nD^INTCSCAl 

-5^ Ö^^AS.-SCft3=0 

1I7 ^':S‘»fTRTHEN200 

il? nK?-“'‘^'"'°®5<A3THEn|=g^1:„,j, 

106 

102 KK?FiR5-fTn.:^™EN350 

i-P5xi0 ^■^^°^''^^=INTCCCX3/I0J;A6 =ccx 
J®8 ^^^5=5THENA5=i 

J^^'GOTO1000 

3-A5xr0'™’^^''^^°®'P'5=INTCCCX3/l03:A6=ccx 
iSl IFA6=TRTHENG=1;H=X 


[153 GoSi|^®-'™^'^l®00 

202 NEXt"^*^^’^°'^^^'^^'’'RPNG=1 ;m=X 

|1002 Af=Sl'2nrA2-|lx?7f‘^”^~P5*l0 

1003 PRlNTKifA'^ GOSUB450ßP) 

1013 lS6O??SAi>T^™ENl300 

leU 

III? 

-fTHmlS" '-'’^'®2=‘'2>--SOSUB45000.- ippj 
> ?l|pa ?• =''ORi<=lTO2000.-„E„,, 

[ 6THEN3000 '^^=KC+J: GOSUB43000: 

KTE^RLuIt V n n T, ^p ,,. ■ * ‘ 

1I0I ;K?<®3THENLL=2:|oTorl0|°^®'3®^ ' 

1312 IsotSpIII®-“®-®23000 

jj'l^lTHENABaS ■^^^•®0SUB45000. jpgg 

' 66THEN1600 ®®' '^^-KS+J: GOSUB-49000r[F4<, 
GEMONNfm r^^y^r. ^QQMQ fl QQQfJT 117711 „ri 1 «- 

llle Sf gStois^I'■ 

i 

ip ! 

Sl ^ i 

ileli!gr“-'’-3THE«=K ; 

sSseeS’^SS^'^i'tn.niPB.KPtn 2).po .' 

1605 PRINTKtrAl-f5'?^^^®l-64=SCM3-A4f,;®° . 

1^606^Vfll-0nf"®^'^^~^xr0‘''"°'^^“^'r°5:^ ; , 

1I07 =®°'^''®=0thenm=x 

1I0I^ 

1201 fFlSlBORUU-lTHlM'^^^“®®® ■ i| 

1^3 ‘"-lPopx=.^S^-|™^^ ! 

— _ I fl 
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.•i'itüPi^sr 

I • ; 1707 NEXT ®THENM=X 

I •' 200? IFA4-?piNnA«'^®THEN2500 , 

• ; 250, im|:|S®«|;;-| 

I ' 2701 

• ; 2702 ®uRi*^'^^^NA5=5 . I 

j 3005 NEXT~^*^^*^°'^®“‘^^'^^NG=1 ;M=x | 

^ i' 3008 G^rFORy-fTnl^*^^*^®®®®®3‘100 I ^ 

I 3011 NEXT~^™^^®“^'”=06*Ml=X;A9=fi6 1 

I ; 301 f IFl=i^H|!JJ5°^y®3‘»50 I • 

• 3015 G=0:FORv-?^ni'®°^O3300 I 

, i äJI W...„« L 

: äll igf.^WHENGM.n^x J ; 

' 3024 M=lNTfRNnr7i^'^®®®® 1 * ' 

! lll?l!^l?;?fi™SÄI‘"''^'"’'®'«»«02i I ; 

.' 33 II °-“")’«5«0.-ccnj. 

; ISÄ4-SlS’“='™'<=lTO200:„Exr • ; 

' •'< 

3,SÄ.,,,„. "''-'""'"«>^‘»>••06.« • ; e! 

3,5, NKfrÄ^-^Ew.,' 

iiiSrlS"“ 

»l’fHssilS^ISäl^r®'-'*’- • iS 


•! -™.20 

• ■ M 0 I ' "'^'^“''''0)=fl,.«x,w< 

- : Sl 

; Igf 

^ I 0005 G=0;Pnpy-n.„ - aü.i-' , 

* •' Sffl® “‘''=-“”«XM'0)=,6^t i 

•jlf.^sr- I 

* ; IS : 

^ 1 ' |203 next'®°^^'^''®^'^^NM=X ,' 

;■ SII^S|cÄ|----‘"ÄI?,„ :. 

• 3702 next '^®"®^^^NM=X, 

; S| g?J=KC19J-6GSUB2500 f ^ 

; 5000 ®=0:FORX=iTO5.Tpor5.- 
;' sl0, NEXT . ®'''''‘'®+TRrHENG.l = ,T . 

Si «ln., 

145 Sc'„3-KC20rj ■ • 

55?^ ;H^?3=3i 


™0S7S41S?'-«TO3 


UlsClL. 

Rrar» « "i. 


: 6003 G3.-2rNTf^r^, 6OSUB21500: 

. 5|0| 

; IS 

P'^^S;Sl:s-|To.00, 

7002 TFTMTro;y^4CA$l;lFfx<'.npa.-^..„.._ I 


c 20 '*~^6.pRiNT"sflflflQ ^ mm 




; ^ UK^ r 1 TO 100; Mp VTrHENP0f<E3ßp5L’ ^ 

;'igii==:::::r-^-- 

^ ^'^‘•^■^*®®6US45000:pRi^.p^_ 
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i I 


I UAOAAA. pAyv^sp ^ ^ 

A .V^f®2 RETURN 

9 I ?800 J=0: IFA3=iTweki I ■ . 

; ?|®| Jgf2THENjS!;!4 “ • 

•; p3^=Ä:j:i 

I ; ylll 

! i irÄ:3 

\ ntal J^‘^3=^THENJ=J+2 

=j+i0 

^ •' g§2??4y-xfNEX?'^®‘^^'"-^-PÖKE36876.X:^ 

I I ®®®0 FORXsfs^Tol^^STFP^I^p’®'*^^^^*^^ 

, ^ '^^-'^^f2J:GOSUB45000:pRjNTL 

I 8003 '"-‘-'‘tlJ!02.U0C2)IGOSUB,5000!PR,„jU 

I NU000 ^“^^‘*'^'‘^°2'-'S22000: iFQ=0-rup 

• 10001 0=0: pnpy-i rncr 

I 1000? iEyT:TFr~fr^^^‘'^=X 
: fX3-A5?r?''T°5 ^aS?ntcCCXVI 0 j; ^ 5=0 

' S gri«iis& 

I 8e.c<X)-05ir0’ "'"‘'■“^•''SflNTCCCXVle): 

ilioä ssä;'?!" 


;is F«-Ä5fr!i- 

• J 10506 NEXT~^^'^*^°'^^^^^'^^'^'^=^* i=A5:G=l 

* ' 10508 

^ I lfe3508 IFA3 t 1 .STHFKiAQ-*^ 

* •' iffi ■ . 

', : Cx!i^5«l''™“'"°=‘"=-™TCCCXM0,,„6.c 

* 10511 IFA6=A4THFNM”X 

I 051.2 NEXT.-GdTOmäe 

) I 11000:REM XX ENDE xx 

I Ulf;- .ff|°:^0'^0Ksf66?HEN1304- 

■' , •;. 11012 IFA6=TR6hdA4^^tpJ'^^'^^'^®®® 

; 11013 IFA4=A6fS?i 1S ®®®® 

! •■ 015 ^=^^^60? 

1 ' 7...^^ ®°™15000 

;r il^issi:;:! 

; !; 10 I ■ . 

. ^^0 /*^"^^’‘‘^^^='=»?=Si;cr21:GOSUB45000:cCN 
} SOToIggg^*^^.*^^'’'^^ ■■'^® * '^0<^X=1TO0000; next 

I . 12002 ®^=INTfCCND/105;A6=cCMD-A5xi0:Ai=s 


30 HomeeoMPUttn 


,' 13000 PRlNT^|QQQran®^®^f;|^-0-W=l:GOTO 
; aSfli MLQQQi 1 i Tiy j r p 1 .';KC; ••sponn 

; i '^°*''^=^‘'°"«®®^.NEXT:GOSUB49000 :sotO 6 
; }fS IF03=1.5THENA3=5 
• r^®®^ ^P05=l.5THENA5-S 

! ü 

I 70001. IFA5=1 .5THENas-=: 

' ®®®^®^®000^GOtÖi304 

; ^Jf®T''«'^5‘)>82-LxC2,,G„SUS450B0=pp,„T '' 

0;CCX-5DsKCXJ°N^T^ftZ^I0^^^^^'™'^^=®^Ol ■ 

{7005 ÜU=liGOTol^00 

llelf rÜJ *“•“»>»« I 

iSi ^iS ‘= 8 -'- . : 

iiia ^is . i' 

ms ^5 ■ i, 

Sil S5 "l’fiUSLER 

mif I“ äCHILLERSTR • < 

1801I rIn !| 

: Sil gl , . ■ 

ÜllilS . ;• 

• 18018 REM 03172/4531 - ' a 

; 18013 R^M ■^^''^^31 • • 

' fo®^® ****xxxxxx ' 

; Jf021 RETURN ,' Ä 

! JX=lTOläl*iSTfRETURN^'^’^^^®®^^ ! 

{1102 FR{{Jjl'|S“«l!M:'J^ ' A 

19503 PRjNl.i5^sSQQ^-;?S ; • 

*‘19504 rfTTUT ’^l * *; RN * 

ilis |gK„“SwSSä;’ - 1 « ; ■, 

20000 GOTO1504 ! 

•M.?®1 PRINT"SflflQQQfl^^ I 4 

215c^pf DD T kl*T*ti _ ■ • 


. SGHWIN 
.7 ? ?. 


> ■•. 31 ..oö ' ‘ 

: dS? 

i.l'fl -fS7x"?iSsiS25^ 

^ V®2: FF =0; RETURN 

2200 ? fexTrFoS-lT05*^?lh?v^^®™^'^®=l 

22002 NEXT: RETURN™ ^'^®‘:xd<>0theng=1 
23000 POKE198,0 

illl l«Kigf j;:™2308, 

E36876,0 ^ ®’^®®'™^X=1TO200:NEXT:POK 

23003 IFQ^="c-thenruN5 
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I • RETURN 

i |S 41 =™^«Äi 5 .,e..^ 

i-S ifS-S"" 

24020 G=0; Popy*-i Tr>cr 

• CX3-10xfti ■ ^°^’'^^=INTCSCX3/i0 3;f,2-S 

: Ulli 'f;|-TPTHENG., 

' a??; iEÄflÄ?Ä™S!s?_ 


30002 






GsPii PflDV ^-4 


•‘ SSb r . ' ■ ”''"'^"°"‘''‘^=‘'°SUB21500r65 

I ; CX3-l0*fli-''°'^^='lTO5:Al=iNTcscxVl03;A2-S 
• ISS ^g?T"HENG=i " 

: 2?lll ' 

^ I 24034 IFMo-1 Lt, ,i.*^*^tNA5=5 ‘ 

i ISII 

I 2^03? GOTO80 
• . Äf SOTO24600 

r i IS • 

: Ä il|:Ä| f ™^aa 

► ; gi™‘-rHO<T,IS^0^3|g,.|a|.™ 

I 24508 GOTO80 

:SS2|:|S:j-| 

; Ä ISfliS?3"f''=-=THEm==.:5 

I 2470? •5THENB5=5 

; l^ll l|?2a-"™™3=5 

: 24802 G0?063'^™^^''3=5 

; 25000 GOTO1304 

> I S00f^rnDv’'*'''^^^T ° ■^^®“^'^°160-XSTEP-6 

M36875.0 ®^^'2''®**™RX=1TO200:neXT:POK 

,iflfNVS"^3-=--«NT-e.-Po.E3aae,:,. 

: ■■UNkIS^UST ODERS. S 


^ ^ WERDEN r* 

* llfrtf Pf^INT-GUS, 

* ; ISI PRlNf- m3> ''"' "»»S 11- 

<miß^-~ 

•i|i.-sia!a:Ssi^ 9 j; 

I ; 2'PRINT* 

! ^3e04 

' I 50000 K*C1 1 •,_.. ' 

; ; 

: : 

• ! *“^‘'''^= ■' 

• : °te*K.'?fr3:?5 ccnw» : < 

* ' |ogf^»°^"E=^‘"’°^aR»E«aaa.JEEn-.!p., I 

; Ste*!5Ss5"«HS®®’'’“^a.Q^6GQ^H, 

: Sill SnirH'“« 

i Sg| S:££Sg|5!i| 
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Nutopia ist ein Labyrinthspiel, bei dem es gilt, 
Punkte zu fressen. Für jeden Punkt, der mit der 
Spielfigur gefressen wird, erhalten Sie 5 Punkte. 
Die Spielfigur ”1” kann mit den Tasten ”M” nach 


links, nach rechts, nach oben und mit,” ” 


nach unten gelenkt werden. 

Bei 600 Punkten erscheint ein Bonus, der 200 
Punkte zählt Sind 1000 Punkte erreicht, so gelangt 
man in die nächste Runde. Frißt man eine der 4 
Süperpillen, so kann, indem vorher auf Space ge¬ 
drückt wird, eine Wand durchbrochen werden. Soll¬ 
ten Sie einmal eingeschlossen sein, so betätigen Sie 
”H” und beginnen neu - verlieren aber eine der 3 
Spielfiguren, Fährt man zu einem der 2 Ausgänge 
hinaus, so gelangt man in den anderen wieder hinein. 
Mit ein wenig Übung ist es auch möglich, diagonal 
mit der Spielfigur zu fahren. Haben Sie 10000 oder 
20000 Punkte, so bekommen Sie eine neue Spielfi¬ 
gur. Das Spiel ist zu Ende, wenn alle Spielfiguren 
verbraucht sind. 


Conmodore 64 — Software 


Wir haben sie 









1 CB 015 


GeschicklkUitttsspial 


UGHI 

DM 39.50 


Der StfiixeitiMiHcli UGHi ai«B fvr die 
beverstekM^ EIsmD VorriHe sMuieln. 
Die Eier ier Ffvgeclisi shd aU Vorr« Ideoli 
dock die Eckse lad einige Saurier sditiaei 
etwas dagegen n kdbenr dal «an Ikre 
Eier kloot... 


CB 022 
Actlensgiei 


Missile CenNnond 
DM32.00 


Sie sind Komnidndant einer Roketenbasis 
und missen alle ongreHenden Raketen, 
Flugxeiife and SatettitmTzerstinii, oni Ikre 
Städte za ratten. Sie likbea;nar eine be¬ 
grenzte Anzokl ven Raketen zir Veifl- 
geeg. 


Sofort Info anfordern 
gegiM Schutzgebukr von DM 1,- 


(fl Brlelai^ea) 


bei 


'JicdhfuiM “KG 


/1«MiiHorstr.“t5 

(^142 Marbach/N 


NÜTOPIA FUER LASER 210/310 


1 REn m ri2 *** .. 

2 W*5?Hf3 . 

3 K«29152JP=0 

10 DATAl>ljlil»l>l>l>liljl,ljl|l,l,l,0,j 
s4)l)ljl}l)l)l,i,i,j.^X 

11 DATAl} 191 j 1 )1j 0j 0}0s09090»0|0|0,0,0 ,0 
}0909 0 ) 0 } 0 ) 0 ,090,09 0 , 0,0 

12 DATA0,0,0,0,0,2,1,19 0,1,0,1,-1,1,1,1,0 
.)l9l9l, 1'9 1,0,1,1,1,1, 1,0 

13 DATAl, 1 , 1 , 1 , 1 , 1 , 0 , 1 , 0 , 1 , 1 , 090 , 0 , 0 , 0,0 

,0,0,0,0,0,090,0,0,0,0,0 

14 OATA0,0,0,0,0,0,0,0,0,0,0,0;1,1,0J1^0 

9 1,1^091,190,1, l,0,lj 1,1 . 

15 DATAl,1,0,1,1,0,1,1,1,0,1,1,0,1,0,1,1 
»09090,1,1,0,1,1,0,1,1,0 

16 DATAl,1,1,1,1,0,1,1,0,1,1,1,0,1,1,0,0 
,0, 1,1,0, 1,09.0,0,0, 1, 1,0 
^^ DATA0,0,0,1, 1,1,1,1,0,0,0,0,1,1,1,0,-0 
»0)0,1,0,1,1,0,1,1,1,0,1 
18 DATAI,1,0,1,1,0,1,1,1,i,T,0,1,1,0,1,1 
,1,1,0,1,1,1,0,1, ^ 

100 FOR1^010255 
110READX 

120 IFX=lTHENPOKE28672+I,128ELSEP0KE2867 
2+1,110 

125 IFX=lTHENP0KEK+2,128ELSEP0KEK+2,110 

126 2«2+l 

127 IF2==32THENK=K-32 

128 IF2==32THEN2«0 

130 NEXTI 

131 P0KE28687., 143:P0KE29167,143 

132 POKE28966,106:POKE28870,106*iPOKE2888 
9,1062POKE28985,106 • 

135 Y=287802X»28780:RESTORE 

136 Y=X 

200 IFINKEY4;='*rt»THENYsY-l 
210 -IFINKEY^s^^-THENY^Y+L 
220 IFINKEY»="j'‘THENY=Y-32 
230 IFINKEY$«".»THENY=Y+32 
2‘3i IFINKEY^«” "ANDS>0THENN=1 

232 IFN=1THENS=:S-5:IFS=0THENN=0 

233 IFINKEYiF»'*H‘’THENGOTO400 

234 IFPEEKCY3=H0THENP«P+5- 

240 1FPEEKCYD*128ANDN=0ORY>28687ANDY<287 
04THEN6OTO136 

241 IFRNDCWD <>1THEN60T0243 

242 F«RHDC448y2F=F+28703:POKEF,128 

243 IFPEEKCY1«64THENSOUMD30,1:p«P+200 

244 iFPEEKCYy«106THENS«15:SOUND31, 1 

245 POKEX,143;X=Y 

246 IFX=28687THENX=29135 

247 IFX==29167THENX=528719 

248 Y==X2P0KEX,73 . 

250 IFP='600THENPOKE28704+RNDC488J,64;SaU 
ND29,1 :S0UND19,22P=P+5 

251 PRINTeia,P:IFN»1THENS0UND29,1 
255 IFP>»1000THENGOTO270 
260 G0T0136 

270 SOUND20,4:S0UND22,4:S0UND24,6:S0UND2 
4,42S0UND22,4:SOUN020 ,6 
230 SOUND20,4:S0UND22,4 2SOUND24,4 2S0UND2 
2,4 :SOIJND20,6 JPIJ*PU+P 
295 IFPÜ«10000QRPU=20000THENH=H+1 
300 IFW>1THENU=M -.2 2PRINTe3,PU,H:F0RI=1T 
O4802NEXTI 
310 GOT03 

400 S0UND16,82H*H-12IFH=0THENGOTO410 
405 G0T03 

410 CLS 2 PRINTe3,PU+P,H 
420 PRINTe208,”**3:****:i:‘',,»* GAHE 
OUER *••,, **%%%%%%%%» 

430 F0RI=15T06STEP-2:SOUNDI,4:NEXTI 
440 PRINT'*NEW GAHE'* 

450 IFINKEY$=='‘J'‘THENRUN 

460 GOTO450 Variablen: 

. W = Schwierigkeitsgrad 
H = Anzahl der Spielfigur« 
P ^ Einzelpunkte 
Y = Standort der Spielfigu 
PU = Gesamtpunkte 
. F = Standort der Wand — 
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Adventureland 

für den VC-20 o. Erweiterung 


Dieses Pro^amm besteht aus zwei Tei¬ 
len, wobei im 1. Teil mir der 
Zeichensatz definiert und eine kurze 
Erklärung gegeben wird. 

Das Spiel besteht aus 2 Ebenen. 'In der 
1. Ebene ist ein Raum, der jedoch durch 
eine Wand abgeschlossen ist, die töd¬ 
lich ist Außerdem ist dort noch ein 
Ausgang zur 2. Ebene. 

In der 2, Ebene befinden sich 3 Räume, 
1 Hebel und 1 Ausgang zur 1. Ebene. 
Der Raum unten rechts mit der roten 
Tür ist gesichert, indem man nur auf 
eine ganz bestimmte Art hineihkommt 
sonst wirkt die Tür tödlich. Das ist bei 
der blauen Tür nicht der Fall, sie kann 
geöffnetwerden, nachdem man den 

■ blauen Schlüssel a.ufgenommen hat 
Der Hebel wird betätigt indem ein¬ 
fach dagegendrücktwird. 

■ Als erstes müssen Sie durch die 1. 
j Ebene in die 2. Ebene und doit den 

. Hebel drücken; der bewirkt, daß die' 
Wand des Raumes in der 1. Ebene ver¬ 
schwindet so daß man den blauen 
Schlüssel nehmen ^nn. Mit ihm kom¬ 
men Sie in die Räume mit den blauen 
; Türen. 

Im 2. Raum der 2. Ebene (Mitte links) 
muß man den Zauberring aufnehmen, 
der bewirkt daß sich im Raum der 1. 
Ebene eine gelbe Plattform bildet Au- 
: ßerdem müssen Sie die Kugeln im 3. 

Raum der 2. Ebene aufnehmen, um 
' später die Pistole zu bekommen. 

Nach Aufnahme des Zauberringes 
müssen Sie auf die gelbe Plattform im 
Raum der 1. Ebene steigen, d.h. sie be- 


■ rühren. Wenn dies geschehen ist er¬ 
scheint im oberen Teil der 1. Ebene ein 
Zauberstab, den man ebenfalls aufneh¬ 
men muß, um in den 1'. Raum .der 2. 
Ebene mit der roten Tür zu kommen. In 
diesem Raum muß das Quadrat be¬ 
rührt werden, dann erscheint falls 
Sie die Kugeln aufgenommen haben, 
im 3. Raum der 2. Ebene eine Pistole, 
die man ebenfalls aufnehmen muß. 
Wenn Sie dann die Pistole aufgenom¬ 
men haben, müssen Sie im Raum der 1. 
Ebene den Spaten aufnehmen, mit dem 
der Hebel in der 2. Ebene wieder 
hochgedrückt werden kann. Sofort 
erscheinen im 3. Raum der 2. Ebene 
zwei Ausgänge, ■von. denen man den 
linken nehmen muß, um zu dem 
Schatz zu gelangeii. Hiermit ist das 
Spiel mit einer Gratulation beendet 
Falls Sie etwas falsch gemacht haben, 
oder gegen die Wand gelaufen sind, 
müssen Sie von Neuem be^nnen. 

Variablenliste: 

A: Standort horizontal 
B: Standört vertikal 
A (^: A-Abnahme der Standortzahl 
I-Richtungsvariable 
M: Richtung für Mann 
Al, Bl: Alter Standort vor Joystick¬ 
abfrage • 

JO, RE: Variablen für Joystickabfrage 

Zauberstab: Z 

Zauberring: G 

Pistole: P 

Kugeln: K i— 



Spaten: SP 
Hebel: H 
Schlüssel: S 

Wenn ein Teil aufgenommen •wurde, 
wird der betreffende Speicher mit der 
Zahl 1 belegt 

AB: Hier wird der Code des Zeichens 
gespeichert, auf das das Männchen als 
nächstes gehen soll 

Wenn AB 32 ist geht das Männchen so¬ 
fort weiter, weil es dann nichts berülirt 
(32=Space). Wenn AB aber etwas an- 
deres ist geht das Programm, bevor das 
Männchen die neu errechnete Position 
betritt zur Zeile 10000 ff. und vergleicht 
dort, ob das Männchen dieses Zeichen 
berüiiren darf, oder was bei Berührung 
dieses Zeichens geschehen soll. Erst 
dann, wenn weitergespielt werden darf, 
kommt das Männchen in die neue 
Position, und das alte Männchen 
wird gelöscht 

Die- Joystickabfrkge beginnt ab Zeile 
2000 und endet in der Zeile 2110. Wenn 
man das Spiel nicht geschafft hat geht 
das Programm in die Zeile 20000 ff., 
und wenn man es geschafft hat geht es 
in die Zeile 25000 ff. 

Die 1. Ebene wird von der Zeile 100 an 
und die 2. Ebene von der Zeile 500 an 
geprintet Die einzelnen Sachen (z.B. 
Schlüssel) werden hingepoked, aber 
nur, wenn sie noch nicht aufgenommen 
wurden. Der Hebel •wird automatisch in 
die richtige Lage (gedrückt oder nicht) 
gepoked. 


I ; I ® *************** 

; 1^?* * 

• 8 REM * WOLF * 

: fe'^S,************»** 

• REM 
: 

14 rem 

^ iss, 195-255 
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200 DflTfi0.g0.24.24.36/66.66.126 ’ 

210 REM SCHLUESSEL 

220 DflTfl 0,0.166.249.6,0.0.0 ~ 

230 REM LOCH . 

240 DATA 255,129,129.129,129,129,129,255 
250 rem: TUER 

260 DATA 0,0.0,0,0,0,0,255 
270 REM MAUER 

280 DATA 0,0,0,0,0,73,146,255 
290 REM PISTOLE 

300 DATA 0,0,0.126,126,192,224,192 

310 REM MONSTER OL 

320 DATA 7.8,16.36,42.36.32.32 

330 REM MONSTER OR ' 

340 DATA 224.16,8,36.84,36,4.4 

350 REM MONSTER UL 

360 DATA 81,138.132.255,64.32.16.8 

370 REM MONSTER UR 

380 DATA 138,81,33.255.2.4,8,16 

390 REM KUGELN 

400 DATA 16.0.74,0.36,0,66,16 
410 REM HEBEL 1 

420 DATA 0,255,0,0.0.0,0.0 ^ ' 

430 REM HEBEL 2 . ‘ 

440 DATA 0-, 192,32.16.8', 4.2,1 
450 REM SPATEN . 

460 DATA 8,4.6.41,80.72.112.0 
470 REM ZAUBERSTAB 
480 DATA 5.10,5,10.16,32.64,128 
490 REM PLATTFORM 

500 DATA 255,255,255.255,255.255,255.255 

510 REM MANN .- 

520 DATA 24.60.24,126,189,24,24,24 

530 REM MANN RECHTS 

540 DATA 112,112,112.96,120.96,208.152 

550 REM MANN LINKS ^ 

560 DATA 14.14,14.6,30,6.11,25 

565 REM TUER SENKRECHT 

570 DATA128.128,128,128.128,128.128/128 

580 FORI=0TO8*POKE7423+I.0:NEXT 

600 P0KE36869.255 ' 

610 P0KE38432.7: P0KE38433.7: P0KE38454,.7: P0KE38455.7 

612 POKE7705.18:POKE7722.0:POKE7712.8:POKE77ia,9:POKE7734.10;POKE7735.11 
615 FORK=1TO1080:NEXTK 

620 FORI«3T08: POkE7680+I+22,19:POKE7680+I1+22.32:FORK-1TO200JNEXTK:11=1:NEXTI 

621 F0RI»1T04: POKE7680+8+22HCI, 18 J POKE7680+8+22J|5l 1.32: FORK=1TO200: NEXTK: I I=I: NEX 
TI 

622 FORI=8 T013 :POKE7680+I+88,19:POKE7680+11+88,32:FORK=1TO200:NEXTK:11=1:NEXTI 

623 F0RI=4T01STEP-1:POKE7680+t3+22#I.18:POKE7680+13+22#I1.32:FORK=1TO200:NEXTK:I 
1=I:NEXT 

624 F0RI=13T019: POKE7680+I+22,19:POKE7680+I1+22,32:FORK«1TO200:NEXTK-Il«I:NEXTI 

625 POKE36869.240: PRiNT“r:k)®iw 

627 PRINT” # 

628 PRINT” Jltil ADVENTURELAND M«” 

629-PRINT" 

631 PRINT” ^ 

633 PRINT” BV M«” 

634 PRINT” 4« 3«c” 

635 PRINT” # 

636 PRINT” m MARKUS WOLF fcJ” 

637 PRINT” # 

638 PRINT” 

640 P0KE36878;. 15:F0RL=1T015:FORM»200TO220+L3|f2: P0KE36876.M: NEXTM. L:P0KE36876.0 
660 PRINT-^kWOU MUST FIND THE WAV OTO THE TREASURE. ” 

670 PRINT”niÄöaEUT IT IS VERV DANGER-TOUS, SO VOÜ MUST BE »CAREFUL. ” 

'680 PRINT”f«ÖW«HIT ANV KEV”:60SUB10000 

690 PRINT”knWBEFORE VOU START PART WTWO, VOU MUST PRESS »STOP ON TAPE.” 

700 PRINT"»WiWOW LOAD PART TWO.ai”:END 

10000 GETA$:IFA$="”THEN10000 

10010 RETURN • ’ ** . 

REA9V. 

3 P0KE36879.9:P0KE36869,255:P0KE37154.127 
30 A<4)=-1:A<2)=1:B<1)=-1:B<3)=1 
50 M<n=18:M<2)=l9:M<3>=18:M<4)=20:A=2:B=2 
100 PRINT”n»RAAAAAAAAARARAAAAAAAAA”; 

120 PRINT”A A”; 

130 PRINT”A A”; ‘ 

140 PRINT“AAAAAAAAflflAAAAAAAAA A”; 

150 PRINT"A ' A”; 

160 PRINT”R A”; • 

170 PRINT”R AAAAAAARRAAAARRAAAA”; 

180 PRINT”A R”;. 

190 PPvINT”A A"; 

200 PRINT”AAHAAÄflAAAAAAAAAAAA A”J > 

210 PRINT"R A”; 










220 PRINffi fl'S . 

230 PRINffl flflflflflflfiflflflflflflflflflflflfl'V 
240 PRINT"« . . fl"; 

260 PRINT"flflflflflftflflflflflflflflflflfiflfl fli'; 

270 PRINT"fl fl“; 

280 PRINT"flflflFFfl fl"; 

290 PRINT"fl fl fl"; 

300 PRINT"fl fl ■ fl"; 

310 PRINT"fl fl . fl"; 

320 PRINT"fl fl Sfl"; 

330 PRINT"flflflflflflflflflflflflflflflflflflflflflfl"; 

340 IFS=0.THENPOKE8122^3:POKE38842^6 
360 IFH=1THENPOKE8035^32:POKE8036^32 
370 IFG«lflNDZ=0THENPOKE8143,17-P0KE38863,7 
380 IFP?=lflNDSP=0THENPOKE8121,15 
390 0OTO2000 

500 PRINT"3^flflflflflflflflflflflflflflflflflflAflfl"; 


520 PRINT"fla fl 
530 PRINT"fl fl 
540 PRINT"fl fl 
550 PRINT"fl fl 
560 PRlNT"fl fl 
570 PRINT"fl fl 
580 PRINT“fl fl 
590 PRINT"fl fl 
605 PRINT"fl fl 
610 PRINT"fl fl 
620 PRINT“fl fl 
630 PRINT"fl fl 
640 PRINT"fl fl 
650 PRINT"fl fl 
660 PRINT"fl fl 
670 PRINT"fl . fl 
680 PRINT-fl fl 
690PRINT"fl. fl 
700 PRINT“fl 
710 PRINT"fl 


fl fl fl fl fl"; 

fl fl fl fl‘ fl. fl fl"; 

fl fl fl H fl fl . fl"; 

fl' fl fl fl fl fl fl"; 
fl fl fl fl fl flflflaEE#"; 
fl fl fl fl fl fl"; 

fl . fl fl fl"; 

flflflflflflflflflflflflflflflfl fl"; 
fl fl fl"; 

flflflfl fl fl"; 

fl fl fl fl"; 

flSEE «flflflflflflflflflflflfl fl" ;• 


WWW I it 

670 PRINT"fl fl flflflflflpflflflflflflflfl fl"; . 

680 PRINT"fl fl fl fl"; , 

690PRINT"fl. flflflflflflflflflftflflflflfl flflfl"; 

700 PRINT“fl' . ' «Ua fl"; - - 

710 PRINT"fl I!U®fl"; 

720 PRINT"flflflflflflflflflflflflflflflflflflflflflft"; 

730 IFH=0THENPOKE7729/13 • r' 

740 IFH=1THENP0KE7729,14 . 

750 IFK=0THENPOKE7785,12 

760-IFq?=0THENPÖKE7927,2 • ; 

2000 fll=fl:Bl=B ' ■' - - - 

2020 J0=PEEK<37151):IFJO=94THEN2020 
2022 RE=PEEK<37152> , 

2025 IFJO=126flNDRE»247THEN2000 ' 

2030 IFJ0-122THENI«! 

2040 IFJ0=118THENI=3 , 

2050 rFJO=110THENI=4 , ' ... 

2060 IFRE=119THENI=2 ' 

2070 fl=fl+fl<I):.B=B+B<I> . 

2080 IFPEEI<<7680+fl+22it(B)<>32THENeOSUB10000 
2890 POKE7680+fll+22*B1^32 

2100 POKE7680+fl-<;22*B<M<I):POKE38400+fl+22#B^3 
2110 GOTO2000 

10008 flB=PEEK<7680+fl+22*B) . 

10005 IFflB=4flNDH=0THEN25000 • 

10010 IFflB=lTHENGOTO20000 „ « „ „ ' 

10020 rFaE=0flNBfl>10THENGOSUB500:fl=2:B=2 : RETURN - 

10030 IFflB=0flNDfl<10THENfl=20:B=t9:GOTO100 
10040 .IFflE=6flNDH=0THENGOTO20000 
10050 IFRB=13THENP0KE7729.14:H=l:flsfli:B==BI 

10060 IFflB=5flNDS=0THENfl=fli:B=Bl • 

10070 IFflB=3THENS=l ■ • .. .. ^ . 

10080 IFflB=14THENfl=fllvB»Bl 
10085'IFflB=2THENGal 

I00I0 IFflU=iflNDfl®lflNDB*21flNDG=lflNBZOlTHENP0KE7727<16:R=fll:B=B1 
10100 lFflB=16THENZ=l < , 

10110 IFflB=21flNDZ=0THEN20000 
•10113 IFflB=4THENfl=fll:B=Bl ' 

10115 IFflB=4flNDP=0ftNDK=siflNDZ=lTHENPOKE7785.7: fl=fll! B=B1 
10130 IFflB=7THENP«l 

10150 IFfll=14flNDSpKTHENP0KE7729,13:H=0:P0KE7697,4•P0KE7698y4:Z=0 
10160 IFflB*17THENP0KE7727^16:fl=fll!B=B1 

X33SS. RETURN 

20000 PRiNT“aa«««D»®!Kii»ri'ou bid not make it " 

20015 IFPEEK<37151>OSi4THE^20015 / 

25000 P0KE36869,242: PÖKE36879\ 24! PRrNT"Sn -j^NGRflTULflTION" 

25001 PRINT"W(W lOU FOUND THE RIGHT »MflV. TO THE TREflSURE. 

878/0 . ' ■ . . 
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KAsmrsMmvia 



Unser Softwareyersand bietet Ih¬ 
nen zu wirklich einmaiig günstigen 
Preisen jeden Monat die neuesten 
Programme (zu den bereits in frü¬ 
heren Ausgaben veröffentlichten), 
auf Kassette bzw. Diskette an. 
Wenn Sie die hier aufgeführten 
Bedingungen beachten, können 
auch Sie von unserem Angebot 
Gebrauch machen. 

Besteilungen Inland: 

Gegen Einsendung eines 
Schecks oder Vorauszahlung auf 
unser Konto bei der Kreisspar¬ 
kasse Eschwege. 


m HC 2/94 

Mari 

Location 

Höhle 

Lander 

Blumenschießen 

VC-20 

Nager 

Seeschlacht 
Star Wars ' 

TI-99 

U-Boot 

Gar-Racing 

SpNtraM 

Pferderennen • 
Laser 

Apple II 

Chamäleon 

ZX-91 

Minenfeld 
Break Out 


aas NC 9/94 
n-91 

Straße überqueren 
Galaktik Invasion 

IXSpectma 19/49K 

Genttron 


K 19,-DM 


K 12,-DM 
019,-DM 


K 12,-DM 
D 19,-DM 


K 10,-DM 


K 19,-DM 


D 19,-DM 


K 10,-DM 


K 10,-DM 


K 10,-DM 


Bankleitzahl 522 500 30 
Kto.-Nr. 45 22 934 
senden wir Ihnen die gewünsch¬ 
ten Programme schnellstmög¬ 
lich zu. Geben Sie bitte unbe¬ 
dingt die genaue Bezeichnung 
der Kassette (z.B. CPU 1/84 TI- 
99/4A) und des Computers an. 


aas HC 3/94 

TI-99/4A 

Antares 

TI - ärgere Dich nicht 

Commodere 94 

Bowling 

Oefender 

Börse 

m-oo 

Atlantic Adventure 

Sharp MZ-90 A 

Ship Bättle 

Draiaa 32 

Invasion 

WC-20 

Blue Monster 

Monsterjagd 

Fishing 

ZX-91 

Chop-Lifter 

Kometen 

ZX Spectrum 

Enterprise 


aas NC 7/94 

«C-ZO 

Grafik 

Zahlendreher 

Rallye 

Bubbier 

Apple II 

The Inexorable Battle 


K 10,’DM 


K 12,-DM 
D 19,-DM 


K 10,-DM 


K 10,-DM 


lt,10,-DM 


K 12,-DM 
D19,*DM 


K 10,-DM 


X 10,-0M 


K 12,-DM 
D 19,^DM 


D19,-DM 


K 12,-DM 


Bestellungen^^Aiisland: 

Nur Vorauskässe. Schein 
(Kassette 10.- DM. Diskette 20,- 
DM). I^eine Schecks oder Über¬ 
weisungen! 

Lieferung noch nicht erhalten? 

Bei Überweisung auf unser Kon¬ 
to kann es bis zU 2 Wochen¬ 
dauern, bis wir Ihre Bestellung in 
Händen haben. 

Oft passiert es. daß auf der Über¬ 
weisungsdurchschrift weder Na¬ 
me. noch Ort noch Art der Be¬ 
stellung zu erkennen sind; 


aas NC 4/94 

ZX Spsetraai 

Superfile ‘ 

Biorhythmus 

Tunnelraider 

ZX-91 

Space Ball 
The Search 

Commadsn 94 

Bulldozer 
Adventure Castle 

VC-20 

Apfeldieb 

Geisterfahrer 

Robot 

Oefender, 

Draiaa 32 

Ufo 

Apple 11 

Space Business 

TI-99 

Wanderung 
Moon Patrol 

II« NC a/94 

ZXSpwtran 

HC-Bert 

Deutschlandquiz 

VC-20 

Feuerwehr 

Oouble-Man 

Planetoid 


K 12,-DM 


K 10,-DM 


K 10,-DM 
D 19,-DM 


K 12,-DM 
D 19,-DM 


K 10,-DM 


D 10,-DM 


K 10,-DM 


K 10,-DM 


K.I2,-DM 

910,-OM 


Schreiben Sie uns! (Anhife 
kosten Viel Gleld und bringen, 
weil dann Schriftvergleiche nicht 
möglich sind, kein Ergebnis)!. 

Wenn es bei uns besonders hek¬ 
tisch zugeht, dann kann es schon 
mal passieren, daß es mit der Lie¬ 
ferung etwas länger dauert. Ver¬ 
gessen Sie bitte nicht: Der Kas- 
settenseryice istjj^in zusätzlicher 
Service von uns, der Ihnen, dem 
Leser, Tipparbeiten ersparen 
soll (Sie kennen den Versuch 
einer anderen Zeitschrift dieses 
per Lichtgriffel zu ermöglichen). 
Wir tun unser möglichstes. Aber 
Pannen sind nie ausgeschlossen.' 
Bitte haben Sie in solchen Fäl¬ 
len Verständnis. 


aas HC 5/94 

Apple 11 

Galactic Fighter 
Irrgarten 

VC-20 

Ufo Attack 
Pingi 

CammodoraOA 

Meteors 

Isola 

TI-09/4A 

Amor 

Erstellen von Zeichen u. 

ZX Spectram 

StarTrek 

ZX-01 

Adventure Spukschloß 
Asphaltreiter 

Draiaa 32 

Schiffe versenken 

IBS NC 9/04 

ZX Spectram 

Texteditor 
Air Battle 

yc-20 

Diamantenmine 


TI-99/4A 

X 10,-DM 

Way Out 

D 19,-DM 

Cr84 

' KIZrDM 

Adventureland 

Nanuk der Eskimo 


Galaxy Terror 


Golf 

D16.-0II 




Hühnerfarm 


Alien 


Th99 

VC-ZO 

X12,-0M 

Snoopy 


Cavern Man 


The Queens Agent 

Das zerbrochene Schwert 

D19,-DM 



Promotion 


Dallas 

Dreher 


nSpectraai 

X 10,-DM 




Rasenmäher 


Irrgarten 


Tf-99 

KIOrDM 

€aiRiRa9ore64 



Steine schieben 


Grenze 


Adressen Files 

Cammadare 94 

X 12,-DM 



Würgman 


Exon Runner 

Fechten 

D 19,-DM 

TI-99 

X 10,-DM 




Oesert 


Monster Fruit 


Atari 

K 10.-0M 

a-81 

Anwenderprogramm 


Ski 


Slot Machine 


Tennis 




' 



Catch it 

Apple II 

D 19,-DM 

ZX-01 

X 10,-DM 

ZX-91 

K 10.-091 


Black Jack 


Teleföngebühren 


Höhle 


Atari 

Datenverwaltung ' 


Bowling 


Adreßverwaitung 


Bubbier 


D 19,-DM 


X 10,-DM 
D 19,-DM 


X 10,-0M 
D 19,-DM 


X 10,-DM 

Sprites 

X 10,-PM 

X 10,-DM 

X 10,-DM 

X I0,-9M 


X 12,-DM 
D 10,-DM 


X 10,-DM 


X 10,-DM 
D 1S,-DM 


X 10,-DM 


X1.0,-DM 
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Arzt bleibt Gesprächspartner 
für seine Patienten 


Wenn ein Arzt die Rechnungen für seine Privat¬ 
patienten selbst ausstellen möchte, dann darf 
das nicht zuviel Zeit in Anspruch nehmen. Denn 
sonst ist es ökonomischer, das von einer Pri¬ 
vatärztlichen Verrechnungsstelle vornehmen zu 
lassen. Diese kassiert dann aber auch viereinhalb 
bis sieben Prozent des Honorars dafür. Einen 
hohen Arbeitsaufwand hat der Arzt dann immer 
noch: Die Gebührenordnung für Ärzte (GOÄ) 
bzw. die Privatärztlichen Verrechungsstellen 
verlangen neben exakten Diagnosen auch eine 
detaillierte Beschreibung der ärztlichen Lei¬ 
stungen. ' 


Deshalb suchte Dr. Andreas 
Gross, Augenarzt in Burg¬ 
hausen an der Salzach, seit 
geraumer Zeit nach einer 
Computerlösung für das 
■ Erstellen seiner Privatrech¬ 
nungen. Computer bzw. 
Mikroprozessoren hat Dr. 
Gross, schon eine ganze 
.Reihe in seiner Praxis: Die 
meisten seiner Meßgeräte 
sind mikroprozessorge¬ 
steuert Er benötigt auto¬ 
matisch und zuverlässig ar¬ 
beitende Geräte, um mehr 
Zeit für seine ärztliche 
Tätigkeit zu haben. Nur 
eine geeignete Micfocomi- 
puterausrüstung. die ihm 
die Gebührenrechnung ab¬ 
nehmen sollte, fand er 
• länge nicht - bis er auf ei¬ 
nen kleinen Handheld- 
Computer stieß. Zwei an¬ 
dere Ärztelösungen ko¬ 
steten ca.20.000 DM - zu¬ 
viel, um sich in kurzer Zeit 
zu amortisieren. Doch für 
ein Viertel dieses Preises 
bot das Freiburger .Soft¬ 
warehaus Robert Simms 
eine komplette auto¬ 
matisierte Pfivatabrech- 
nung einem EPSONHX-20 
und mit einer Schreibma¬ 
schine. Damit arbeitet'nun 
Dr. Gross und'spart nicht 
nur die Gebühr füir die 
Dienste der Privatärzt¬ 


lichen Verrechnungsstel¬ 
len, sondern verbessert 
durch die erneute Be¬ 
schäftigung mit dem Pa¬ 
tienten auch seine diagno¬ 
stischen Erfahrungen. 
Während seiner Behand¬ 
lung notiert Dr. Gross bzw. 
eine Sprechstundenhilfe 
den Namen des Patienten, 
die Diagnose(n) und die. 
Kennziffern der ärztlichen 
Leistungen. Am Abend gibt 
er dieselben Angaben mit 
Datum und Rechnungs¬ 
nummer über die professio¬ 
nelle deutsche Schreibma¬ 
schinentastatur in den 
Rechner ein; Alle Angaben 
kann er auf dem übersicht- 
lictien Bildschirm des nur 
buchgroßen Gerätes kon¬ 
trollieren. Der Computer 
. legt den Briefkopf an, Dr. 
Gross gibt die Diagnose(n) 
und die Kennziffern der 
ärztlichen Leistungen ein. 
Der HX-20 ergänzt um die 
Leistungsbeschreibung im 
Klartext, den Berechnungs¬ 
faktor und den Rechnunps- 
beträg. Diese wurden ein- 
.mal in den Rechner einge¬ 
geben und müssen nun nie 
wieder von Hand geschrie¬ 
ben werden. Der Computer 
richtet sich genau nach den 
Vorschriften der neuen Ge¬ 
bührenordnung für Ärzte 


Computer in der Privatpraxis 



(GOÄ) von 1983. Er schreibt 
auch Rechnungen nach 
den neuesten ]Uchtlinien 
der KVB. Dr. Gross wählt 
nur noch den Berech¬ 
nungsfaktor, zum Beispiel 
1,8 oder 2,3. Einen Schluß¬ 
satz mit Kontonummer 
setzt der HX-20 auto¬ 
matisch an das Ende des 
Briefes. Dieser Schlußsatz. 
kann bis zu sechs Zeilen 
lang sein. Jederzeit kann 
Dr. Gross das Programm 
anhalten i(nd individuelle 
Angaben für seine Pa¬ 
tienten hinzuschreiben. In 
zwei bis^ drei Minuten ist 
eine' Rechnung, eventuell 
mit persönlicher Nachricht 
an den Patienten verfaßt 
Da dies durchaus schon 
während der Behandlung 
selbst geschehen kann, ist 
Dr. Gross in dfer Lage, dem • 
Patienten auf Wuiis'ch die 
Rechnung-gleich mitzuge¬ 
ben. .Ansonsten verfaßt er 
die Rechnungen abends. 
Dabei rekapituliert er 
nochmals den jeweiligen 
Behandlungsfall. ■ Vieles 
sieht er klarer, vieles prägt 
sich nochmals ein. Deshalb 
empfindet er das Eingeben 
der Anschriften, Diagno¬ 
sen und Kennziffern kaum 
als Arbeit Der. Computer 
protokolliert auf dem ein¬ 


gebauten Drucker die Ab¬ 
rechnungen mit 
Für Dr. Gross bringt die 
Einbeziehung des Rech¬ 
ners in seine Arbeit Klar¬ 
heit über seine Patienten¬ 
abrechnung. Durch die 
Einsparung der Gebühren 
an die Privatärztliche Ver¬ 
rechnungsstelle hat sich die 
.^schaf&ng schnell amor¬ 
tisiert Die Einarbeitungs¬ 
zeit betrug zwei Abende. 
Dabei wurde der größte 
Teil der Zeit zum Eingeben 
und Abspeichem der Lei¬ 
stungstexte benötigt Ein 
besonderer Lemaufwand 
war nicht erforderlich. Die 
Schreibmaschine kann Dr. 
Gross auch einzeln« ohne 
Computer, verwenden. 
^Ebenso kann er den Rech¬ 
ner für andere Dinge be-' 
nutzen. Außerdem hat er 
nebenbei so viel Erfahrum 
gen und Kenntnisse erwor¬ 
ben, daß er gezielt erweitern 
und ergänzen kann. Da der 
,HK-20 durch den Anschluß 
eines Diskettenspeichers 
,upd eines Monitors zum 
Tischcomputer ausgebaüt 
werden kann, plant Dr. 
Gross die Patientenver¬ 
waltung mit dem Computer 
als nächsten Schritt. 
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für den ZX-Spectrum 



Das folgende kurze Programm erleichtert dem Anwender 
das PEEKen und POKEn im Bildschirmspeicher. 

Zuerst muß das Ladeprogramm Angegeben werden^ dann 
mit Save ”name” Code 32500,100 abspeichern. 

10 Clear 32499 
20 Leta = 32500 
30 INPUT b 
40 Poke a,b 
50 Print a,b 
60 Let a=a+l 
70 Goto 30 

Für b stehen folgende Werte: 
1,0,0,120,230,248,31,31,31,87,230,24,198,64,103,122, 
230,7,15,15,15,129,111,122,23,23,23,95,120,147,254,0, 
40,4,36,61,32,252,68,77,201 

Anschließend „STOP” eingeben und mit Print USR 
32500 aufrufen. Das Ergebnis muß 16384 sein, sonst ist 
irgendwo ein Eingabefehler gemacht worden. ' 

Sollte das Programm abstUrzen, mit 

Load ”name” Code 32500,100 
wieder einladen und alle Werte vergleichen. 

Benutzen des Programmes: 

Poke 32502, Zeilennummer (0-31) 

Poke 32501, Spalte (0-175) 

Wird nun mit Print USR 32500 aufgerufen, sind als Er¬ 
gebnis die gepokeden Koordinaten zu sehen. 

Ein kleines Demoprograitnm veranschaulicht den 
Effekt: 

10 For X = 0 to 175 
20 Poke 32502,x 
30 För y = 0 to 31 
40 Poke 32501,y 
50 Poke USR 32500,255 
60 Next y 

70 Next X ' . 


Tastenwiederholung 
auf allen Tasten 
furCBM64~ 

Beim Eingeben von langen Steuerzeichenketten 
oder Überschreiben beim Editieren ist es oft sehr 
nervenaufreibend, daß der Commodore 64 kein 
Tastaturrepeat besitzt. Durch das schnelle hin¬ 
tereinanderfolgende Drücken einer Taste ermü¬ 
det sehr schnell die Muskulatur,und die Finger 
fangen an zu schmerzen. 

Außerdem schont es nicht gerade die ohnehin 
sehr labile Federung der Tasten. 

Als Ersatzlösung für diese Funktion bietet sich . 
daher das folgende Maschinenprogramm an. 
Man kann damit unter Verwendung der 
Funktionstasten ein Auto Repeat auf alle 
Tasten legen. 

Durch Drücken von ”F1” wird die Routine akti¬ 
viert Sie liegt außerhalb des Basic Bereichs und 
wird nach dem Eingeben mit ”Run” gestartet 
Den Lader nimmt man, nachdem "Ready” er¬ 
scheint mit "New” wieder aus dem Speicher. 
Aus dem Repeatmodus kommt man durch 
Drücken von ”F3” wieder heraus. 


Listing 1 ist der komplette Lader 

, 80 F0RA=832T0886:REflDB:P0KEA,ß;NEXT 
90 SYS832 

100 DATA120,173,20,3,141,46,3,173 
110 DATA21,3,141,47,3,169,89,141 
•120 DATA20,3,169,3,141,21,3,88 . 

130 DATA96,165,197,201,4,240,7,201 
140 DATA5,240,11,108,46,3,169,128 
150 DATA141,138,2,108,46,3,169,0 
160 DATA141,138,2,10a,46,3,32 

Listing 2 ist das Disassembler Listing für Leute, 
die der Programmablauf interessiert' 


0340 

78 

SEI 



0341 

AD1403 

LDA 

i0314 

- 

0344 

8D2E03 

STA 

i032E ' 


0347 

AD1503 

LDA 

i0315 


034A 

8D2F03 

STA 

i032F 


034D 

A959 

LDA 

n%5S 


034F 

8D1403 

STA 

i'0314 


0352 

A903 

LDA 

i»i03 


0354 

8D1503 

STA 

i0315 


0357 

58 

CLI 



0358 

60 

RTS 



0359 

A5C5 

LDA 

iC5 


035B 

C904 . 

CUP 

#$04 


035D 

F007 

BEQ 

$0366 


035F 

• C905 

cnp 

#$05 . 


0361 

F00B * 

BEQ 

$036E 


0363 

6C2E03 

JflP 

C$032ED 


0366 

A980 

. LDA 

#$80 


0368 

8D8A02 

STA 

$028A. 


036B 

6C2E03. 

JMP 

G$032E3 


036E 

A900 '. 

LDA 

#$00 


0370 

8D8A02 

STA 

$028A 


0373 

6C2E03 

JMP 

C$032E] . 
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TIPS 6 nKKS 


an den ZX Si 


ine Interface 
ectrum 


Für den Spectrum ^bt es eine ganze Menge Joysticks änzuschMeßen, einziger Nachteil: die meist sehr 
kostenintensiven Interfaces, ohne die normalerweise nichts geht. 

Wir zeigen, wie Sie auf einfache Art Kosten sparen können, indem der Joystick direkt an die Tastatur 
angeschlossen wird. 


Zunächst benötigen wir die Belegung der Tastenfelder, 
dort hilft das Spectrum-Handbuch, Kapitel 23. 

Mit nachstehendem Programm kann man die Cursorta¬ 
sten abfragen: 

IN 61486 - links 
IN 61438-unten 
IN 61438-oben 
IN 61438 - rechts 

Ebenfalls ist es möglich, 2 Joysticks an den Spectrum 
anzuschließen. 

Die Abfrage lautet dann folgendermaßen: 

INKEYS = ri” IN 61486 - linte 


INKEYS 

INKEYS 

INKEYS 

INKEYS 

INKEYS 

INKEYS 

INKEYS 

INKEYS 

INKEYS 


”2” IN 61486 • 
”3” IN 61486 
”4” IN 61486 
”5” IN 61486 
”6” IN 61486 
”7” IN 61486 
”8” IN 61486 
”9” IN 61486 
”0’’ IN 61486 


rechts 

unten 

oben 

Trigger (1) 
’ links 
’ rechts 
■ unten 

• oben 

• Trigger (2) 


Das einzige, was jetzt noch zu tun ist, It. Skizze die Vei> 
drahtuhg vorzunehmen und aufpassen, daß das Folienka¬ 
bel nicht knickt. 

Viel Spaß! 


REM-Killer für den ZX-Spectrum 


Es kann Vorkommen, daß man auf sei¬ 
nem Spectrum munter drauflos pro¬ 
grammiert und dann plötzlich feststel¬ 
len muß, daß der Speicherplatz’ nicht 
mehr reicht, besonders wenn man nur 
die löK-Version des Spectrum besitzt 
Jetzt muß man das Programm zusam¬ 
menkürzen. Am einfachsten geht dies, 
wenn man alle REM-Zeilen entfernt 
Das kann aber ein mühseliges Unter¬ 


fangen sein. 

Nicht aber niit ”REM-Killer”. 

Sie laden es einfach auf Ihr bestehen¬ 
des Programm mit LOAD” "CODE, 
und starten es mit RANDOMIZE 
USR... 

Jetzt nur noch einige Sekunden warten 
und r fertig; 


Hier noch einige Hinweise; 


Das abgedruckte Listing ist nur für die 
48K-Version. Soll das Programm auf ei¬ 
ner löK-Version Itfufen, müssen fol¬ 
gende Adressen geändert werden: 

65367 auf 32599 

65368 auf 32600 
65499 auf 32731 

Alles weitere wird im Programm 
selbst erklärt 


1 REM REM-KIL.LER 
a REM fu«r den ZX Spectruu 

3 REM bu Friedrich Neuper 

4 REM UeriKion 4.8 K 
13 CUERR 65367 

XX PRINT "Bitte werten" 
ao FOR i »65368 TO 654.09 
as RERD a 
as POKE i«a 
30 NEXT i 

4.0 RRNDOMIZE USR 65368 
50 CUS ; PRINT RT 0^I0;"REM^KI 
LLER"; PRINT .• PRINT 

55 PRINT "Die DRTR-Zeilen word 
en Jetzt in den Speicher gePOKEd 

: PRINT 

56 PRINT “Sie koennen nun das 
Rrograe» nit 

SRUE “REM-KIl.L.ER*COD 
E 65368« I3a"t PRINTT : PRINT "Ode 
r durch GOTO 95 abspeichern.": -p 
RINT 

57 PRINT “Geladen wird es mit 


40 HoMseoMPiiTtp 


i.ORD‘"'CODE und gestartet mit": 
PRINT : PRINT "RRNDOMIZE USR 653 
68 . " 

90 STOP 

95 SRUE "REM-KILLER"CODE 65368 

* 96 CLS : BEEP .6,3: PRINT "FER 
TIG!“: STOP 

3.00 DRTR 4.a«83«oa«a4.«3i«aa9«35« 
35 « 78 « 35 « 70 « 35 « 186 « 854. «33,56 « 350 
« 854 « 834 « 38 « 86 «3«3«3«3« 885 ' 

110 DRTR 197«a05,a4,16«193,ll«l 
80«177«38,846«837«91,75,98«167,8 
37,88,808,85,84,814 
180 DRTR 35,186,854,13,38,8,885 
«9«35,35,35,35«84,831«854,14,38, 
7,35,35,35«35,35, 84, 831 
130 DRTR 854,33,56,887,854,34,3 
8,8,35,186 «854,34,38,850,84,815, 
854,58,38,811,84,93 „ 

140 DRTR 35,186,854,13,40,809,8 
54 « 33 « 56 « 846,854,834,38,836 «98,1 
07 «197,805 «84,16,193,11,186,854 « 
13,38,845,885,35,35,113,35,118,4 
3,43,43,84,160 
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coMPumt 


Computer/Leistungsdaten 


APPLE Ile 



FMliPr Ja 
nini) 

§HtariCi 


I 




0RIC1 



ArMtstaU 

Dnidnr 

sdiriMstalle 

WoHm 

Prognininier 

spraclnR 

CP/M 

Fiblglntt 

SpritigralHi 

Modalplatz 


SoBnd 

MiflehliaiiM 

\ 

1.023 MHz 

Caabwld 

tpfttiii 

gwaiHi. 
fiici^ mhIi 
oii MdiiM Ahir 

Ja 

BpOlMl 

Ja 

ParSlMpabMa^ 

Ja 

Ja 

•rOimI 



IHNZ 

ATARI 800 XL 

CaalrMria 

■RÜMal 

Nrihrlsia. 

■■■ ■ ■! 

mmmn, 

iJip.C.PiM. 


Ja 

(Ptefir/ilsilii 

Ja 

PaearMfRi 

0 SMi Eapaaslaa 

131)4 

Ja 

apOiaal 

4Tiagaäarataiaa 

1 ^ • 

MBIMb 

RITOO 

wSsr - 

ja 

fWtuh Tmmm9 

la|a.Tlna 

M 

Ja 

Ja 

Ma 

3 TaaRaaaialanRi 


CRM 3000 

0,110 MHz S«M 

mtfm 

SpradMa 

Ja 

apHaaal 

Ja 

Ja 

Ja 

aplaaal 

1 TaafiRonlar 

Dragon 32 

Ca.1liniz / ~ ParalliRUS 

PMI 

IMa 

IMa 

Ja 


«TIIIUüAIM 



4Mlb 

Sharp MZ 700 

iMMillr 

EMaaipMIir 

Ala SpradMa 
adfldb 

Ja 

apBaad 

IMa 

Nda 

i|daad 

1 Taapaairalir 

XliRi 

MermOea 

TI-99/4A 

11 

PaKal,La|i. 

ExtaaMBade 

Nda' 

Ja 

Ja 

Ja 

•pBaad 

'3 Taapaaanianai 

1 Raatdidaaraltr 



VC-20 

0,009MKz - 

SMdl 


Nda 

Nda 

Ja 

Ja 

apHaad 

3 Taafaaardafia 


ZX-81 

3,5 MNz 

Caalnaiei 

apttaad 

PMIi 

Nda 

Nda 

Nda 

Ja 

apHaad 

Nda 



3.70 MNz 

Caabtila 

aplatMl 

Farth, Pascal, 
Mora PidMiaa, 
RIN Bade 

Nda 

Nda 

Ja 

(apNaaal) 

(MarfacaZl 

Ja 

aptfaad 

(Warfacal) 

1 Taiiaaatdar 


Spectrum 











I 
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Drei Buchstaben rütteln den Gomputermarkt wach: 


icrosoft- 


s 


uper- 


feitded 


Zusammen mit Microsoft lehren die Japaner der Fachwelt das Fürchten. 


Die Pressekonferenz in Tokio, die ich für HOMECOMPUTER besucht hatte, war 
ein wenig früher als erwartet zuende gegangen, sodaß nicht nur ein freies Wochen¬ 
ende, sondern ein zusätzlicher Freitagnachmittag zu meiner Verfügung stand. 
Wohin also? Wieder eine der unzähligen gutgemeinten Einladungen annehmen? 

/ Auf keinen Fall! 


Wie wäre es, Wenn ich meine ^ •*A/rCY modell kompatibel ist - das einheit des änderen, wie eine 

jüngste Bekanntschaft im WasiStJVlöÄ würde nicht nur viel Verwir- Compactcassette in jedes 

Land der aufgehenden Mi- rung verursachen, Platten Kassettentonbandgerät .paßt 

kroelektronik ein wenig auf- MS3L jene Abkürzung, auf Würden unweigerlich auch Das bedeutet auch, daß man 

frischte und Fumi einen Be- die Fumi und alle japani- viel viel teurer werden, weil beim Umstieg von einem 

such abstatten würde? Ge- sehen Computerfans schwö- sie nur in verhältnismäßig zum andern Modell nicht 

sagt, getan! .Kurzentschlos- ren, steht für Microsoft Super kleinen Stückzahlen produ- sämtliche Programme weg- 

sen verUeß ich den Freeway Extended und ist also gar ziert werden könnten. werfen, verkaufen oder um- 

an der . nächsterreichbaren nicht made in Nippon, son- Der Computer-Freak hat sich schreiben muß. Systemwech- 

Äusfahrt und kämpfte mich dem ein waschechtes Kind jedoch . daran gewöhnen sei als solchen gibt es nicht 

wieder durch das Labyrinth des bekannten amerikani- müssen, daß es Dutzende mehr, der Erwerb . ein^S 

der verwinkelten Tokyoter sehen Software-Hauses verschiedener Standards gibt, neuen Computers kann ohne 

Gassen; MICROSOFT, dessen Ge- und das Wort Kompatibilität jeden Trouble über die 

Fumi Osawa - muß man neral Manager David Fraser meist nichteinmal innerhalb. Bühne gehen, 

diesen Namen als Com- sich MSX als ausschließ- des Angebotes eines einzel- 

puter-Freak kennen? Nun,; liches Heimcomputersystem nen Herstellers gibt Sie t • i. • • u 

bevor Ihr Selbsvertrauen für den europäischen und ja- sehen das schon an Ihrer lypiSCh japanisch 

allzu sehr Schaden nimmt panischen Markt wünscht Zeitschrift HOMECOM- 

und Sie sich verzweifelt nach ”Unser Bemühen,” so PUTER, die Sie gerade in Inzwischen bin ich am Haus 

einem Who-is-who der Elek- schrieb er erst neulich in ei- Händen halten: Wäre es der Familie Osawa an- 

tronik-Industrie umschauen, ner Pressemitteüung, ”geht nicht schön, wenn wir nicht gekommen. Fumis Eltern 

darf ich Sie bemhigen: Der dahin, eine umfassende bei jedem Spielprogramm, entsprechen ganz und gar 

Name findet sich weder im Standardisierung auf dem für das wir das Listing ab- dem Klischee der japani- 

Aufsichtsrat von Fujitsu Microcomputer-Sektor zu drucken, vermerken müßten: sehen Normalfamilie. Seit 

noch im Vorstand von Mit- erreichen. Das MSX-Projekt ”f^r den Commodore-64”, dieGrößmuttervorzweiJah- 

subishi. Fumi ist ein Teen- ist nur eine Fazette in- ”für den Spectrum 48K”,”für rengestorbenist lebt alsVer- 

ager von gerade 18 Jahren, die, nerhälb dieses Planes.” Die den 'n-99/4A mit Extended treter der älteren Generation 

als ich sie im Dezember wenigen Worte deuten nur Basic”'usw.? Wäre es nicht p?ar nur noch der Großvater 

letzten Jahres zuletzt ge- vage ah, üm was es Faser da- toll, wenn alle Programme, im Haus, doch ist alles so 

sehen hatte, gerade Ihr Inge- bei geht die in einem HOMECOM- eng, _ daß man als Durch- 

nieurstudiumanderUniver- MSX wagt einen Frontalan- PÜTER-Heft zu finden sind, Schnittseuropäer in schiere 

sitätToliyo aufnahin. Schon griff auf eines der größten auch von allen Besitzern ei- Verzweiflung geraten kann, 

damals hatte sie - eine gera- Probleme des Heimcom- nes Heimcomputers genutzt Die Begrüßung ist herzlich.' 

dezu besessene Computer- putermarktes, eine Attacke werden könnten? Mutter Osawa führt mich ins 

Närrin -ständig nur von drei auf das gravierende Hinder- Ein schöner Träum - und Wohnzimmer, den größten 

Buchstaben gesprochen, die nis, das einem ungetrübten dochgenaudas,wasMSXer- Raum der Wohnung, der 

für sie gleichbedeutend mit Computervergnügen bislang reichen will. Das neue Sy- ‘stattliche’ 16 qm aufweist 

der Zul^nft der Heimcom- noch im Weg steht stem, auf das sich Microsoft und mit Videocenter, Hifi- 

püter waren. Seinerzeit fand ' und die meisten japanischen. Anlage, einer Golfausrü- 

ich das noch ein wenig über- Alles IRir alle . Computerhersteller geeinigt stung samt Caddy-Car sowie 

trieben, doch . ' seit die haben, will allerdings noch einer Unmenge Büchern 

führenden Elektronik-Kon- Stellen Sie sich vor. Sie besit- mehr: Nicht nur die Software vollgestopft ist, die Fiimi für 

zeme im Frühjahr die zen einen Plattenspieler, auf soll kompatibel werden, ihr Studium benötigt 

Marktstrategie für das Euro- den Sie nicht jede x-beliebige sämtliche Schnittstellen wer- Hinter einer Trennwand 

pageschäft abgesteckt haben, J,p, sondern nur eine solche den feinheitlich: Peripherie , schaute bei. meinem ersten 

mußte ich meine Ansichten l^challplatte legen können, des einen Herstellers paßt Besuch die Stoßstange des 

doch überprüfen. die zu Ihrem Plattenspieler- problemlos an die Zentral- Mazda hervor, den sich die 
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Familie vor drei Jahren ge¬ 
kauft hat und an diesem un¬ 
gewohnten Ort verstauen 
mußte, weil eine Kfz- 
Zulassung in Tol^o hur bei 
Nachweis eines Parkplatzes 
erteilt wird. Dieser chrom¬ 
blitzende Wohnzinimerf 
schmuck fehlt heute, da'Vater 
Osawä noch nicht aus. dem 
Büro heimgekehrt ist 


Video-Chips xon TI 

Nach einem allseitigen 
Ohayo gosaimas und der 
Versicherung meinerseits, 
zum Abendessen zu bleiben, 
zeigt mir Fumi, die heute 
keine Vorlesung hat ihren 
Toshiba-Heimcomputer HX- 
100. Da sie in ihren Eltern 
zwar geduldige, aber , nicht 
recht begeisterte Zuhörer fin¬ 
det fceut sie sich natürlich 
riesig, wenn jemand da ist 
dem sie mit leuchtenden Au¬ 
gen einen Vortrag über ihr"" 
Hobby und die Vorzüge des 
neuen Systems halten kann.' 
Stolz kann sie auch sein: Sie 
besitzt einen der ersten 
MSXer, die mit den brand¬ 
neuen Videochips von Texas 
Instruments aUsgestattet sind 
(difese wurden erst wenige 
Tage zuvor am Rande der 
Videotex-Konferenz in Chi¬ 
cago vorgestellt). 

Die T 5 rpenbezeichnung 
TMS 9228/29, so erzählt 
Fumi mir, stellen den letzten 
Stand in der VDP-Ehtwick- 
lung dar (VDP=Video Dis¬ 
play Processor). Der TMS 

9228 entspricht den amerika¬ 
nischen Teletext-Normen 
und solle deshalb dem US- 
Markt gerecht werden, der 

9229 ist auf den europäi¬ 
schen Standard zugeschnit- 

. ten und steckt schon in den 
ersten Geräten,-die ab Au¬ 
gust in England und ab 
Spätherbst auch auf dem 
europäischen Kontinent zu 
haben sein werden. 

Graphikv 

Mut zum-Mittelmaß 

Die Auflösung -liegt bei 
256x210 Pixels. 16'Farben 
können gewählt werden. Die 
Darstellung erfolgt in 24 Zei¬ 
len ä 80 Zeichen. Scrolling ist 
punktweise horizontal und 
vertikal möglich. Video- und 
Teletext-Kompatibilität ist 
voll gewährleistet Sprites 
sind in umfangreicher Form 
vorgesehen, Interrupts sind 
programmierbar, und ein lei¬ 
stungsfähiger Soundge^ 


nerator ist im Chip inte¬ 
griert 

Als CPU besitzt der Toshiba, 
für den Fumi schoii einige 
• brauchbare Anwenderpro¬ 
gramme und fünf Spiele ge¬ 
schrieben bat einen Z80-A 
Das MSX-Basic, das zu 96% 
IBM-kompatibel ist hat in 
einem 32K-ROM Platz. Der 
solide Netztrafo (N08-2298), 
die Gleichriehterschaltung 
und der HF-Modulator sind 
im Gehäuse untergebracht 
sodaß es außer einem An¬ 
tennen- und eihem Netzka¬ 
bel keine weitere Leitung 
gibt 

MSX heißt nicht 
. nur ”neue Technik” 

Nun sind diese techmschen 
Features zwar allesamt an¬ 
sprechend, völlig neu sind sie 
jedoch nicht Ist es nicht viel-" 
leicht eher so, daß MSX we¬ 
niger eine neue Technologie 
als vielmehr ein fortschritt¬ 
liches Organisationskonzept 
ist? Fumi überlegt kurz. 
”Jein,” meint sie, "natürlich 
istäuch Organisation mit im 
Spiel. Das ist schließlich bei 
jeder Neuentwicklung so: 
Wenn der Markt einen Trend 
nicht akzeptiert kann , sich 
dieser nicht durchsetzen. 
Denk nur an die hoffnung- 
lose Schlacht die sich Sony 
im Videobereich mit der ge¬ 
samten Branche,liefem.W 9 ll- 
te. So etwas ist angesichts der 
Millionen und Abermillio- 
jtert > die investiert werden, 
sehr schnell zum Scheitern 


verurteilt wenn man eine ge¬ 
schlossene Front vor sich 
hat So ein Desaster wollte 
mit MSX natürlich niemand 
riskieren. Zum Glück ist un¬ 
seren BranchenfüHrem dies¬ 
mal eine allseits befriedi¬ 
gende Einigung gelungen. 
Aber das war nur möglich, 
weil MSX einen akzeptablen 
Standard darstellt Und das 
durchaus auch von derTech- 
'^ikher. 

"Null, so ganz bin ich noch 
nicht überzeugt Ist es denn 
im Sinne des jeweiligen Her¬ 
stellers, sich nicht gegen die 
Konkurrenz am Markt ent¬ 
sprechend absetzen und dem 
^ufer gegenüber profilieren 
zu können?" 

"Du, genauso haben auch 
bei uns in Japan einige 
Kritiker gesprochen. Aller¬ 
dings kamen sie schnell zu 
der Einsicht daß ihpen das 
neue Konzept auch gehörige 
Sicherheit bietet Ein Her¬ 
steller hat es nun mit einem 
kalkulierbaren Gegner im 
Wettbewerb zu . tun: Der 
Konkurrent kann nicht von 
heute auf morgen mit einem 
unerwarteten Coup kommen 
- - das ist auch ein wichtiges 
Argument für MSX Dazu 
. kommt d^ der Markt noch 
sehr viel flexibler als bisher 
wird. Hersteller A kann Her¬ 
steller B durch bessere Lei¬ 
stung ein schönes Stück 
Marktanteile . wegschnap¬ 
pen, "was, bislang,' als jeder 
übet die Grenzen seines eige¬ 
nen Systems nicht hinaus¬ 
blickte, unmöglich war - es 
sei denn, er zog pote'ntielle 


.Käuferschichten zu sich 
herüber." 

Ach, jetzt versteh? ich: Und 
das geht jetzt auch leichter, 
weil der Interessent nicht 
sein eigenes- System aufge-^ 
beh muß, was er sich in der" 
Vergangenheit gehörig über- 
-legt hätte. 

"Genau! Und ein Beispiel = 
dafür hab’ ich auch schon 
parat" Fumi kramt aus ei¬ 
nem Wust von Zeitschriften 
einen Prospekt hervor. 

"Schau mal, Freunde von 
mir habensich denML-FllO 
von Mitsubishi gekauft Ein 
tolles Ding, kann ich dir sa¬ 
gen. Mit umfangreicheif Peri¬ 
pherie in erstklassiger Aus-^ 
stattung. Früher, mit den vie¬ 
len Systemschwierigkeiten, 
hätte ich mich ganz schön 
geärgert denn für den Mitsu¬ 
bishi gibts bereits den "Move 
Master". Das ist ein voll¬ 
wertiger kleiner Einarm- 
Roboter mit eigener Soft¬ 
ware. So etwas gibt es von 
Toshiba noch nicht Macht 
aber nichts. Durch MSX 
kann ich den RM 101 (Ty¬ 
penbezeichnung des Move 
Masters) auch an meinen Ex¬ 
pansion: Bus anschließen 
Siehst Du, das ist eben 
Standardisierung." 

Ja, so sehe ich ein, da kann 
man wirklich nicht meckern. 
Hoffentlich sind die MSX- 
Geräte auch bald aüf dein 
deutschen Markt erhältlich. 
Ich werde mir dann'gleich eig¬ 
nes zulegen. Denn in Japan 
sind sie gar nicht billiger. 
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für den TI-99/4A 



Der Königin von England wurden von einem feindlichen Agenten di^ 
Kronjuwelen gestohlen. Ihre Aufgabe ist es; den Agenten auszu¬ 
schalten und die Juwelen zuruckzubrihgen. Er versteckt sich in ei¬ 
nem Haus mit IS Räumen, in dem sich außerdem ein Spion und eine 
Bombe befinden. 


Zum Spiel: 

Es werden angezeigt: 

Anzahl der restlichen Schritte 
Anzahl der noch itn Haus befind¬ 
lichen Juwelensäcke 
Anzahl der noch zur Verfügung stehen¬ 
den Schüsse 
Score 

Anzeige der Raumnummer 
In dem mit +■ gekennzeichneten Feld 
können folgende Anzeigen auf¬ 
tauchen: Agent near, Spy near, Bomb 
near, Spy dead, Jewels found, Com¬ 
puter set room 

In der linken Bildschirmhälfte wird in 
einer Grafik der jeweilige Raum 
dargestellt 

Zu Beginn emcheint das Titelbild mit 
der Melodie von Big Ben. Die Melodie 
wiederholt sich so oft, bis das'Spiel 
durch Drücken einer Taste gestartet 
wird. 

Sie befinden sich nun im Raum 1. Der 
Computer nimmt Befehle an, sobald 
oben rechts das ”C” und der Pfeil im 
Wahlfeld: go? Shoot? erscheint 
Sie haben nun die Wahl zwischen: gehen- 
und schießen. 

Nach Drücken der entsprechenden Taste 
ertönt ein Warnsignal, das darauf 
hinweist, daß die Richtung noch nicht 
feststeht Nach Eingabe der Richtung 
wird der Befehl ausgeführt und Sie 
wechseln bzw. schießen in den ge¬ 
wählten Raum. 

Benutzen Sie einen der Ausgänge, 
wählt der Computer einen Raum aus 
und setzt Sie dort ab. Dabei werden 
Ihnen allerdings 10 Schritte abgezogen 
und es besteht die Gefahr, in den Räu¬ 
men mit dem Agenten, dem Spion oder 
der Bombe zu, landen, wodurch das 
Spiel sofort beendet wäre. 

Eine Anzeige, wie z.B. Agent near, be¬ 
deutet, daß sich das angezeigte entwe¬ 
der in einem Raum über, unter, links 
oder rechts von Ihnen befindet Die 
dort angezeigten Dinge verändern ihre 
Position nicht sodaß Sie mit deir richti¬ 
gen Strategie herausfinden, in welchem 


Raum sich was befindet Töten Sie den 
Agenten, ist das Spiel beendet sodaß 
Sie keine Gelegenheit miehr haben, die 
Juwelen zu finden. Man sollte sich also 
merkeit wo der Agent ist und ihn erst 
zum Schluß ausschalten. 

Sind alle Schritte verbraucht ist das 
Spiel ebenfalls beendet (wenn Schritte 
CO), 

Kommt man mit dem letzten- Befehl 
mehr als einen Schritt unter Null, wird 
der Endscore als ”C”-Score angezeigt 
was einen Minuswert bedeutet 
Bei der Endabrechnung wird die Rest-' 
schrittzahl mitbewertet also nicht so 
oft die Ausgänge benutzen!! 

Ein Schuß kostet Sie 3 Schritte, für ei¬ 
nengefunden Juwelenäack erhalten Sie 
5 Schritte. Der Raum mit der Bombe 
bleibt für Sie gesperrt. Betreten Sie ihn 
trotzdem, ist das Spiel zu Ende. 

Töten Sie den Spion, wird dies auf dem 
Display und almstisch angezeigt. Das 
Spiel wird dadurch aber nicht 
beendet 

Da Ihnen nur 2 Schüsse zur Verfügung 
stehen und Sie den Agenten und den 
Spion nur dadurch ausschalten kön¬ 
nen, überlegen Sie erst genau, wo Sie 
sich befinden. Diese Räume dürfen 
nicht betreten werden. Bei .dem Ver¬ 
such ist das Spiel beendet 
Das Programm weist unerlaubte Schrit¬ 
te zurück: z.B: Schritt durch eine 
Wand, Schuß von Raum 10 nach 11 
etc. 

Sicher wird es einige Zeit dauern, bis 
Sie das Spiel ito Griff haben,, aber es 
macht immermehr Spaß!!! 

Noch ein Tip: 

Angenommen, Sie befinden sich in 
Raum 10 und es wird: Spy near ange¬ 
zeigt so kann sich der Spion in Raum 5, 
'9, 15 aber auch in Raum 11 
befinden!!!!! 

Variablen: V: Anzahl der Schritte 
SC: Punktezähler 
B: Bonusberechnung 
BO: Bombe'’ ’ 


RN: Raum TV 

Agt: Agent « \ l 

Spy: Spion 
SAl: 1. Geldsack 
SA2:2.-Geldsack 
SA3:3. Geldsack 
DD: Zähler (Geldsäcke) 
a 1: Position Schriftanzeige 
A 2: Position Schriftanzeige 
A 3: Position Schriftanzeige 
A 4: Position Schriftanzeige 
A 5: Position Schriftanzeige 
SH: Zähler Schüsse 

Programmbeschreibung: 

HO-400 Zeichendefinierung Spielfeld 
410-570: Farbfestlegung Spielfeld 
580-790: Datas für ersten Raum-, Spiel¬ 
feldaufbau 

800-890: Datas für Schrift erstes Bild 
900-940: Variablen 

950-1230: Auswahl der Räume für die 
Spielfiguren.. 

1330-1M0: Überprüfung der Neben¬ 
räume .[ 

1660-1710: trberprüfung, ob der Raum 
besetzt ist 

1990-2210: Überprüfung der Schritte 
auf Gültigkeit 

2300-2780: Raumauswahl des Com¬ 
puter 

2790-3200: Datas zum Aufbau der ver¬ 
schiedenen Räume 

3210-4010: Schriftprogramm Spielab¬ 
lauf 

4030-4910: Bewertung für Schüsse, Ju¬ 
welen, Schrittabrechnung 
4920-4990: Zeichendefinierung Titel¬ 
bild 

5000-5080: Farbfestlegung Titelbild 
5090-5300: Aufbau Titelbild 
5310-5520: Sound (Titelbild/Scoreta- 
belle) 

5630-5770: Scoretabelle (Endabrech¬ 
nung) 

5780-5840: Abfrage, ob noch ein Spiel 
5890-6060:.Schriftprogramm, wie weit 
die Mission erfüllt ist 
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100 GOSUB 4920 
110 CALL CLEAR 

120 CALL CHAR(42,"FF7F3F1F0F 
070301") 

130 CALL CHAR(43,fFFFFFFFFFF 
FFFFFF") 

140 CALL CHAR(96,"0iO3070FlF 
3F7FFF") 

150 CALL CHAR<97,"FFFEFCFaF0 
E0C0e0"> 

160 CALL GHAR(9B,"FFFFnFFFFF 


') 


170 CALL CHAR<104,“FFFFFFFFF 


’) 


1B0 CALL CHAR(105,"B0C0E0F0F 
8FCFOT") 

190 CALL CHAR(112,"B0C0E0F0F 
BFCFEFF") 

200 CALL CHAR(113,"FFFFFFFFF 
FFFFFFF") 

210 CALL CHAR(114,"FFFEFCF8F, 
0E0C080") 

220 CALL CHAR(120,“0103070F1 
F3F7FFF"> 

230 CALL CHAR(128,"806080608 
0808060") 

240 CALL CHAR(129,"FFFFFFFFF 
FFFFFFF") 

250 CALL CHAR (.130, "000000000 
O00O0FF") 

260 CALL CHAR(131,"FF") 

270 CALL CHAR(136,"010101010 
1010101 ") 

280 CALL CHAR(137,"80C0E0F0F 
BFCFEFF") 

290 CALL CHAR(138,"0103070F1 
F3F7FFF") 

300 CALL CHAR(139,"007E46400 
40E0404") 

310 CAU CHAR(15i,-0103070Fl 
F3F7FFF") 

320 CALL CHAR(59,"3C4299A1A1 
99423C") 

330 CALL CHAR(152,"000000001 
‘0307FFF") 

340 CALL CHAR<153,"7F301") 

350 CALL CHAR(154,"000000000 
00000FF") 

360 CALL CHAR(155,«010101010 
1010101 ") 

370 CALL CMAR(156,«FF") 

380 CALL CHAR(157,“808080808 
0808080«) 

390 CALL CHAR(15a,"006B3ElC3 
66F773E") 

400 CALL CHAR<159,"818181818 
1818181") 

410 CALL SCREEN(8) 

420 CALL COLDR(1,5,5) 

430 CALL C0L0R(2,11,15) 

440 CALL C0L0R(3,16,5) 

450 CALL CQL0R(4,16,5) 

460 CALL C0LDR(5,16,5) 

470 CALL C0L0R(6,i6,5) 

480 CALL COLOR(7,16^5) 

490 CALL C0L0R(8,16,5) 

500 CALL C0L0R(9,2,11) 

510 CALL COLOR(10,11,2) 

520 CALL C0L0R(11,16,1) 

530 CALL COLDR(12,11,8) 

540 CALL C0L0R(13,15,1) 

550 CALL COLOR(14,15,16) 

'560 CALL COLORdS, 15,11 )• 

570 CALL C0L0R(16,2,5) 

580 DATA f,3,154,16,19,3,156 
,16,2,3,105,1,2,4,98,14,2,18 
,97,1,3,4,105,1. 

590 DATA 3,5,*98,12,3,17,97,1 
,4,5,105,1,4,6,98,10,4,16,97 

600 DATA 5,6,105,1,5,7,98,8, 
5,15,97,ii6,7,105,1,6,8,98,6 
,6,14,97,1 

610 DATA 7,8,105,1,7,9,98,4, 
7,13,97,1,13,8,151,1,13,9,12 

9.4.13.13.42.1 

620 DATA 14,7,151,1,14,8,129 
,6,14,14,42,1,15,6,138,1,15, 

7.129.8.15.15.42.1 . 
630DATA 16,5,138,1,16,6,129 
,10,16,16,42,1,17,4,151,1,17 


,5,129,12,17,17,42,1 

640 DATA 18,3,151,1,18^4,129' 

,14,18^18,42,1,11,20,154^8,1 

4.20.156.8 

650 DATA 15,20,154^8,18,20,1 

56.8 

6^ RESTQRE 580 
670 FOR T-J TO 42 
660 READ A,B,C,0 
690 CALL HCHAR(A,B,C,D) 

700 NEXT T 

710 DATA 2,2,155,17,2,19,157 

,17,9,10,113,4,9,11,113^ 4,9, 

5,113,7,9,6,113,6 

720 DATA 3,3,104,15,4,4,104, 

13.5.5.104.4.6.6.104.3.7.7.1 
04,7,8,8^104,5 

730 DATA 8,13,43,5,7,14,43,7 
,6,15,43,9,5,16,43,11,4,17,4 

3.13 

740 DATA 3,18,43^15,12,19,15 
9,2,12,18,157,2,16,19,159,2, 
16,28,157,2^12,6,139,1,1 

1.11.139.1 

750 RESTOf« 710 
760 FOR T*1 TÖ 24 
770 READ A,B,C,D 
780 CALL VCHAR(A,D,C,D) 

790 NEXT T 

800 DATA 3,20,76,3,21,69,3,2 
2,70,3,23,84,3,24,62,3,25,76 
810 DATA 5,20,82,5,21,73,5,2 
2,71,5,23,72,5,24,84,5,25,62 
,5,26,82 

820 DATA 7,20,79,7,21,78,7,2 

2^87,7,23,65,7,24,82,7,25,68 

,7,26,62,7,27,79 

830 DATA 9,20,66,9,21,65,9,2 

2,67,9,23,75,9,24,62,9,25,66 

840 DATA 12,21,71,12,22,79,1 

2.23.63.13.21.83.13.22.72.13 
,23,79,13,24,79,13,25,84 
,13,26,63 

850 RESTORE 800. 

860 FOR T>1 TO 36 
870 READ A,B,C 
880 CALL HCH^(A,B,C} 

890 NEXT T 

900 RN=*1 

910 DD«3 

920 SH=2 

930 Val5 

940 SC=0 

950 RANDOMIZE 

960 A6T«INT(RND»15)+1 

970 IF ABT*1 THEN 960 

980 SPY*INT(RND#15)+1 

990 IF SPY*1 THEN 980 

1000 IF SPY«AGT THEN 980 

1010 SAI«1NT<RND*15)+1 * 

1020 IF SAlasl THEN 1010 
1030 IF SÄl*sAGT THEN 1010 
1040 IF SAl^SPY THEN 1010 
1050 SA2*INT(RND*15)+1 
1060 IF SA2«1 THEN 1050 
1070 IF SA’2*ABT THEN 1050 
1080 IF SA2aSPY THEN 1050 
1090 IF SA2«SA1 THEN 1050 
1100 SA3«INT()RND»15)+1 
1110 IF SA3*1 THEN 1100 
1120 IF SA3«A(3T THEN 1100 
1130 IF SA3*SPY THEN 1100 
1140 IF SA3»SA1 THEN 1100 
1150 IF SA3-SA2 THEN 1100 
1160 Ba»INT(RND#15)^l 
1170 IF B0«1 THEN 1160 
1180 IF BO-AGT THEN 1160 
1190 IF BO-SPY THEN 1160 
1200 IF B0*=SA1 THEN 1160 
1210 ir B0«SA2 THEN 1160 
1220 IF B0=SA3 THEN 1160 
1230 GOTO 1270 
1240 IF RN<6 THEN 1270 
1250 IF RN<lt THEN 1290 
1260 GOTO 1310 
1270 BOSÜB 2790 
1280 GOTO 1320 
. 1290 GOSUB 2930 
1300 GOTO 1320 
1310 GOSUB 3070 . 

1320 GOSUB 2300 



1330 IF RN«AST~1 THEN 1380 
1340 IF RN-AGT-i-1 THEN 1380 
1350 IF RN-AGT-5 THEN 1380 
1360 IF RN«AGT-f5 THEN 1380 
1370 GOTO 1440 
1380 FOR A«1 TO 3 
1390 CALL SOUND(250,-1,0) 

1400 FOR T«l TO 150 
1410 NEXT T 
1420 NEXT A 
‘1430 GOSUB 3390 
1440 IF RN-SPY-1 THEN 1490 
1450 IF RN*8PY+1 THEN 1490 
1460 IF RN-SPY+5 THEN 1490 
1470 IF RN-8PY-5 THEN 1490 
1480 eOTO 
1490 FOR A«1 TO .3 
1500 CALL SOUND(250,-1,0) 

1510 FOR T-1 TO 150 

1520 NEXT T 

1530 NEXT A 

1540 GOSIB 3480 

1550 IF'RN-BO-1 THEN 1600 

1560 IF RN«BCN-1 THEN 1600 

1570 IF RNoBd'f-S THEN 1600 

1580 IF RN-BO-5 THEN 1600 

1590 GOTO 1660 

1600 FOR A»1 TO 3 

1610 CALL SCXJND (250,-1,0) 

1620 FOR T«1 TO 150 

1630 NEXT T 

1640. NEXT A 

1650 GOSUB 3660 

1660 IF RN-SAl THEN 1746 

1670 IF RN»SA2 THEN 1740 

1680 IF RN-SA3 THEN 1740 

1690 IF RN«SPY THEN 3920 

1700 IF RN-AGT THEN 3920 

1710 IF RN»BO THEN 3920 

1720 GOSUB 3750 

1730 GOTO 1760 

1740 GOTO 4030 

1750 GOSUB 3570 

1760 GOSUB 3750 

1770 GOTO 4220 

1780 CALL KEY(0,K,S) 

1790 CALL HCHAR(2,27,59) 

1800 CALL SqUND(ie0,1760,0> 
1810 IF S-0 THEN 1780 
1820 CALL HCHAR(2,27,32) 

1830 CALL HCHAR(12,12,32) 
'1840 Al»20 
1850 A2*2 
1860 A3»2 
1870 A4*20 
1880 A5»20 

1890 IF K-79 THEN 1900 ELSE 
1910 

1900 IF BEF«1 THEN 4360 ELSE. 
1980 

1910 IF K«66 THEN 1920 ELSE 
1930 

1920 IF BEF«1 THEN 4450 ELSE 
2040 

1930 IF Ks576 THEN 1940 ELSE 
1950 

1940 IF BEF«1 THEN 4540 ELSE 
2100 

1950 IF K»82 THEN I960 ELSE 
1970 

1960 IF BEF«1 THEN 4610 ELSE 
2i60 

1970 GOTO 1780 

1980 RN»RN^1 

1990 IF RN-l\sTHEN 2220 

2000 IF RN-li THEK 2220 ' 

2010 IF RN«6 'iCN .2220 

2020 GOSUB 483^ 

2030 GOTO 1240* 

2040 RN=RN-1 
2050 IF RN«1C VHEK* 

2060 IF RhKS TKIU 2260 

2070 IF RN-0 THEN 2260 

2080 GOSUB 4830 

2090 GOTO 1240 

2100 RN*RN+5 

2110 IF RN>15 THEN 2140 

2120*GOSUB 4B30 

2130 GOTO 1240 

2140 RW=RN-5 

2150 GOTO 1240 
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2160 RN»RN-5 

2170 IF RN<«0 THEN ‘2200 

2180 GOSUB 4830 

2190 GOTO 1240 

2200 RN«RN+5 

2210 GOTO 1240 

2220 RNsINT(RN0»15)+l 

2230 GOSUB 4860 

224.0 GOSUB 3210 

2250 GOTO 1240 

2260 RN«INT<RND*15)+1 

2270 GOSUB 4860 

2280 GOSUB 3210 

2290 GOTO 1240 

2300 Al«20 - 

2310 A2»2 

2320 A3«2 

2330 A4«20 

2340 A5-20 

2350 RN$*STR$(RN) 

2360 A$«“ROOM NO: "ScRNO 
2370 GOSUB 2530 
2380 SH$«STR$<SH) 

2390 A$=”SHOaTS:'*8<SH4 
2400 GOSUB 2690 
2410 DO$«STR«(OD) 

2420 A»*''SACKS :«S<DD$ 

2430 GOSUB 2740 
2440 V*«STR$<V) 

2450 A«a*'STEPS LEFT:"«cV$ 

2460 CALL HCHAR(20,13,32,2) 
2470 GOSUB 2590 
24Ö0 SC$«STR$(SC) 

2490 A1ia"SC0RE:««*SC$ 

2500 GOSUB 2640 

.2510 CALL HCHAR(2,27,59) 

2520. RETURN 

2530 CALL HCHAR<22,28,32,2) 
2540 FOR N2al TO LEN(A$) 

2550 CALL’HCHAR(22,A1,ASC(SE 
6$(A$,N2,1))) 

2560 A1»A1+1 
2570 NEXT N2 
2580 RETURN 

2590 FOR N2«l TO LEN<A$> 

2600 CALL HCHAR(20,A2,ASC(S£ 
G$(A$,N2,1))>,' " 

2610 A2aA24-l 
2620 NEXT N2 
2630 RETURN 

2640 FOR N2al TO LEN(A$) 

2650 CALL HCHAR<22,A3,ASC<SE 
G$(A$,N2,1))) 

2660 A3=A3+1 
2670 NEXT N2 
2680 RETURN 

2690 FOR N2ai TO LEN(A$) 

2700 CALL HCHAR<20,A4jASC(SE 
6$(A$,N2,1))} 

2710 A4aA4+l 
2720 NEXT N2 
2730 RETURN 

2740 FOR N2al TO LEN(A$> 

2750 CALL HCHAR(19,A5,ASC(SE 
G$.(A«,N2,1)>} 

2760 ASaASfl 
2770 NEXT N2 
2780 RETURN 
2790 REM 

2800 DATA 15,6,138,1,16,5,13 
8,1,15,15,42,1,16,16,42^1 
.2810 RESTORE 2800 
2820 FOR T=1 TO 4 ,, 

2830 READ A,B,C,D 
2840 CALL HCHAR(A,B,C,D) 

2850 NEXT. T 

2860 DATA 9,5,113,7,9,6,113, 

6.9.15.43.6.9.16.43.7.12.6.1 

39.1 

2870 RESTORE 2860 
2880 FOR T»1 .TO 5 
2890 READ A,B,e,D 
2900 CALL VCHAR(A,B,C,D) 

2910 NEXT T 

2920 RETURN v 

2930 REM *RAUM 2^^ . 

2940 DATA 15,15;i37;i,16,16, 

137.1.15.6.138.1.16.5.138.1 
2950 RESTORE 2940 

2960 FOR T*l/TO.4 
2970 READ A,B,C,D 


2980* CALL HCHAR (A, B, C, D) 

2990 NEXT T 

3000 DATA 9,15*, 113,6,9,16,11 
3,7,9,5,113,7,9,6,113,6; 12,1 

6.139.1.12.6.139.1 
3010 RESTORE 3000 
3020 FOR T*1 TO 6 
3030 READ A,B,C,D ■ 

3040 CALL VCHAR(A,B,C,D) 

3050 NEXT T 

3060 RETURN 
' 3070 REM »RAUM 3« 

3080 DATA 15,6,151,1,16,5,.15 

1.1.15.15.137.1.16.16.137.1 
3090. RESTORE 3080 

3100 FOR T«1 TO 4 
3110 READ A,B,C,D 
3120 CALL HCHAR(A,fi,C,D) 

3130 NEXT T 

3140 DATA 9,5,104,7,9,6,104, 

6.9.15.113.6.9.16.113.7.12.1 

6.139.1 

3150 RESTORE 3140 
3160 FOR Tal TO 5 
3170 READ A,B,C,D 
3180 CALL VCHAR(A,B,C,D) 

3190 NEXT T 
3200 RETURN 
3210 A$a”COMPUTER“ 

3220 Qal6 ■ 

3230 Wa20 
3240 GOSUB 3840 
3250 A*«”SET ROOM“ 

3260 Dal7 
3270 W*20 
3280 GOSUB 3840 
3290 RETURN 
3300 A$a** SPY « 

3310 Qal6 
3320 Wa20 
3330 GOSUB 3840 
3340 A0«‘* DEAD “ 

3350 Q*17 
3360 Wa20 
3370^GOSUB 3840 
3380 RETURN 
3390 A$*“ AGENT " 

3400 Qal6 
. 3410 W=20 
3420 GOSUB 3840 
3430 Afä« nEAR * 

3440 Qal7 

3450 Wa20 

3460 GOSUB 3640 

3470 RETURN 

3480 A*«” SPY “ 

3490 Q=16 
3500 U-20 
3510 GOSÜB 3840 
3520 A$-« NEAR " 

3530 Qal7 

3540 Ha20 

3550 GOSUB 3840 

3560 RETURN 

3570 Afa“ JEWELS « 

3580 Q=i6 • 

3590 Wa20 

3600 GOSUB 3840 

3610 A$a** FOUND " 

3620 Q«17 
3630 Wa20 
3640 GOSUB 3840 
3650 RETURN 
3660 0$*** BOMB “ 

3670 Qal6 — 

3680 Wa20 

3690 GOSUB 3840 

3700 A$a»‘ NEAR " 

3710 Q*17 
3720 Wa20 
3730 GOSUB 3840 
3740 RETURN 
3750 A*«« 

3760 Dal6 
3,770 Wa20 
3780 GOSUB 3840 
3790 Aia” . „ " . 

3800 0*17 
3810'W=20 

3820 GOSUB 3840 . 

3830* RETURN r/ 



3840 FOR DRI*1 TO LEN(A*) 
3850 CODEaASC(SEG$(At,DRI,1) 
> 

3860 GOSUB 3900 
3870 N«WVl 
3880 NEXT DRI 
3890 RETURN 

3900 CALL HCHAR(Q«W,CODE) 
3910 RETURN 
3920 SC=SC-500 
3930 CALL CLEAR 
3940 CALL SCREEN<5) 

3950 PRINT “ YOU WERE NOT 
CAREFUL » 

3960 PRINT 

3970 PRINT " THE FOE HAS 
GOT YOU " 

3980 PRINT :::::: 

3990 FOR Tal TO 2000 
4000 NEXT T 
4010 GOTO 5590 
4020 END 
4030 DD=DD-l 

4040 FOR 1*252 TO 524 STEP 3 
6 

4050 CALL SOUND(-50,1,0,-1,1 
0 ) 

4060 NEXT I 

4070 V«V+5 

4080 SCaSC+500 

4090 CALL HCHAR(12,12,158) 

4100 IF RNaSAl THEN 4160 

4110 IF RNaSA2 THEN 4180 

4120 IF RN«SA3 THEN 4200 

4130 GOSUB 2300 

4140 GOSUB 3570. 

4150 GOTO 1760 
4160 SAla0 
4170 GOTO 4130 
4180 SA2a0 
4190 GOTO 4130 
4200 SA3»0 
4210 GOTO 4130 
4220 CALL KEY(0,KY,ST> 

4230 CALL HCHAR(12,27,152) 
4240 CALL HCHAR(13,27,153) 
4250 IF Sta0 THEN 4220 
4260 CALL HCHAR(12,27,32) 
4270 CALL HCHAR(13,27,32) 
4280 IF KYa83 THEN 4310 
4290 IF KYa71 THEN 4340 
4300 GOTO 4220 
4310 BEFal 

4320 IF SHa0 THEN 4220 

4330 GOTO 1780 

4340 BEFaO 

4350 GOTO 1780 

4360 IF RN+lal6 THEN 4220 

4370 IF RN+1=11 THEN 4220 

4380 IF RN+la6 THEN 4220 

4390 IF RN+1»AGT THEN 4680 

4400 IF RN+laSPY THEN 4710 

4410 SHaSH-1 

4420 GOSUB 4890 

4430 GOSUB 2300 

4440 GOTO 1760 

4450 IF RN-lal0 THEN 4220 

4460 IF RN-la5 THEN 4220 

4470 IF RN-4=0 THEN 4220 

4480 IF RN-laAGT THEN 4680 

4490 IF RN-laSPY THEN 4710 

4500 SH=SH-X 

4510 GOSUB 4890 

4520 GOSUB 2300 

4530 GOTO 1760 

4540 IF RN+5>15.THEN 4220 

4550 IF RN4-5aAGT THEN 4680 

4560 IF RN+5aSPY JHEN 4710 

4570 SHaSH-1 

4580 GOSUB 4890 

4590 GOSUB 2300 

4600 Goto 1760 

4610 IF RN-5<0 THEN 4220 . 

4620 IF RN-SfAGT THEN 4680 

4630 IF RN-5aSpV THEN 47i0 

4640 SHaSH-l 

4650 GOSUB 4890 

4660 GOSUB 2300 

4670 GOTO 1760 

4680 SCaSC+1500 

4690 GOTO 5890 
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4700 END 
4710 SC=SC+100O 
4720 FOR 1*139 TO 134 STEP 
1 

4730 CALL SOUND(-100,1,0) 
4740 NEXT I 

4750 CALL SOUND(150,-7,0) 
4760 SPY=100 
4770 GOSUB 4B90 • 

4780 SH=SH-1 
4790 GOSUB 3300 
4800 GOSUB 2300 
4810 GOTO 1760 
4820 GOTO 1760 
4830 V=V-1 

4840 IF V<0 THEN 5590 

4850 RETURN 

4860 V*V-10 

4870 IF V<0 THEN 5590 

4880 RETURN 

4890 V=V-3 

4900 IF V<0 THEN 5590 

4910 RETURN 

4920 CALL CLEAR 

4930 CALL CHAR(40,"FFFFFFFFF 

FFFFFFFFF«) 

4940 CALL CHAR(41,«FFFEFCFBF 
• 0E0C080'‘) 

4950 CALL CHAR(42,“0103070F1 
F3F7FFF") 

4960 CALL CHAR(43,“80C0E0F0F 
8FCFEFF“) 

4970 CALL CHAR(44,“FF7F3F1F0 
F070301'') 

. 4980 CALL CHAR<45,**3C4299A1A 
199423C«) 

4990 CALL CHAR(64,"FFFFFFFFF 
FFFFFFF«) 

5000 CALL SCREEN(2) 

5010 CALL C0L0R(1,2,2) 

5020 CALL C0L0R(2,12,2) 

5030 CALL CDL0R(3,16,2) 

5040 CALL CQL0R(4,16,2) 

5050 CALL C0L0R(5,16,2) 

5060 CALL C0L0R(6,i6,2) 

5070 CALL C0L0R(7,16,2> 

5080 CALL C0L0R(8,16,2) 


6 #aQe( 


((+ #+e*(a(a( 
(((+»((a( (@(6 ( 
(((((((((((((( 


a(a(e(i(aa((aa( 


. 5090 PRINT - MS 

- ee«** 

V 5100 PRINT *• + a fi(@( 

’ a 

■ 5110 PRINT " (+ a #aaa( 
aa *(" 

5120 PRINT •• ((+ iH-e«(a(a( 

: a(+#4- *((•• 

5130 PRINT “ (((+*((e((e(e( 

!aQa( (+»(((•' 

; 5140 PRINT " (((((((((((((( 

((((((((((« y 

5150 PRINT " aaa(a(a(aaa(aaa 
(aa((a(aaaa" 

5160 PRINT a(a(e(e(a(((a(( 
(aaa(a(a((” 

5170 PRINT ” a(a(e(i(aa((aa( 

, (acaeaceada** 

5180 PRINT " a(a(e(a(a(((a(( 
(a((aa((((a" 

. 5190 PRINT ** aaa(aaa(aaa(aaa 
-.(e(((a(aaaa" 

5200 PRINT “ ((a((<((((((((. 

((((((((((•• 

>5210 PRINT “ <C(((((((((((( 

(((((((<((•• 

5220 PRINT ((aaa(aaa (aaa( 
aa((a(aaa(" 

5230 PRINT •• ((a(a(a(((a((( 

aae(a((a(('' 

5240 PRINT " ((aaa(a(a<ae(( 
a(aaa((.a(('* 

5250 PRINT •• , (ä(e(a(a<a((( 
a((aa((a()» 

5260 PRINT ** ,a<8(eaa(aaa( 

e(((a((a)“ 

5270 PRINT 

'5280 PRINT " -1984 PROGRAMMS 
J.SCHLUETER« 

5290 PRINT 

5300 PRINT " SOUND.s GRAFIKs 
F.SCHLUETER" 

5310 CALL SÖUND(400,220,0,17 
5,10) 

5320 FOR 1*1 TO 100 
5330 NEXT I 

5340 CALL SOUND(400,175,0,34 


(C(((((((((((( 
((aaa(aaa(aaa( 
((a(a(a(((a((( 
((aaa(a(a(ae(( 
,(ä(e(a(a(a((( 
,a<8(eaa(aaa( 



5350 FOR 1=1 TO 100 
5360 NEXT I' .. 

. 5370 CALL SOUND(400,196,0,13 

1 , 10 ) 

' 5380 FOR 1=1 TO 100 
5390 NEXT I 

5400 CALL SOUND(700,131,0,26 

2 , 10 ) 

5410 FOR 1*1 TO 400 
5420 NEXT I 

5430 CALL SOUND(400,131,0,26 

2 , 10 ) . . 

5440 FOR 1*1 TO 100 
'5450 NEXT I 

5460 CALL SOUND(400,196,0,13 

1 , 10 ) 

5470 FOR T=1 TO 100 
5480 NEXT I ' 

5490 CALL SOUND(400,220,0,17 
5, 10) 

5500 FOR 1*1 TO 100 
5510 NEXT I 

5520 CALL SOUND(700,175,0,34 
9,10) 

5530 FOR 1*1 TO 30 
5540 CALL KEY(0,K,S) 

5550 IF S=0 THEN 5560 ELSE 5 
580 

S560 NEXT 1 ' 

5570 GOTO 5310 
5580 RETURN 

: 5590 REM »»AUSWERTUNG## 

5600 CALL CLEAR 
5610 CALL SCREEN(5> 

5620 IF V*-l THEN 5630 ELSE 
5640 

5630 V*0 

I 5640 SC*SC»(V»50) 

5650 B*V»50 

5660 PRINT “ GAME 0 

V E R” 

5670 PRINT 

5680 PRINT " SCORE T 

A B L E« 

5690 PRINT sss 

5700 PRINT " STEPS LEFTs“ 

5 V 

5710 PRINT :: 

. 5720 PRINT “ BDNUSs''5B 

5730 PRINT ss 

5740 PRINT « SCOREs";SC 

5750 PRINT s: 

.5760 PRINT “ PRESS ANY 

KEY“ 

5770 GOSUB 5310 
5780 CALL CLEAR 
5790 CALL SCREEN(5) 

5800 PRINT., " , A N 0 T H E R 
GAME" 

5810 PRINT :: 

5820 PRINT " YESO 

NO“ 

5830 PRINT ssss: 

5840 CALL KEY(0,K,S) 

5850 IF S=0 THEN 5840 
5860 IF K=B9.THEN HO 
5870 IF K=78 THEN 5880 ELSE 
5840 

5880 END . 

5890 IF SA1<>0 THEN 5950 

5900 IF SA2<>0 THEN 5950 

'5910 IF SA3O0 THEN 5950 

. 5920 Af=" CONGRATULATI 

ON" 

5930 B$*“ THE JEWELS ARE BA 
CK HOME“ 

5935 SC*SC+750 
5940 GOTO 5980 
5950 A$*"YQU FORGOT TO BRING 
BACK THE“ 

5960 Ba*“JEWELS BE CAREFUL 
NEXT TIME" 

5970 GOTO 5980 
5980 CALL CLEAR 
5990 CALL SCREEN(5) 

6000 PRINT A$ 

.6010 PRINT 
6020 PRINT Bt 
6030 PRINT 
6040 FOR 1*1 TO 2000 
6050 NEXT I 
6060 GOTO 5590 


STEPS LEFTs“ 


BONUS:“$B 

score2";sc 

PRESS ANY 
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Der Kampf um die Ewing-Millionen für 2 Pemonen und 1 
Homecomputer 


J.R und Bobby versuchen Präsident 
des Ewing-Imperiums zu werden. J.R. 
bedient Joystick 1, Bobby JoystickNr. 2. 
(Da diese meist nicht gekennzeichnet 
sind, entscheidet der Zufall, welcher 
Spieler welche Rolle übernimmt) 

Im Hauptmenü gibt es drei Möglich¬ 
keiten: 

1. X-Felder gehen (nach links oder 
rechts) 

2. X-Stimmrechte sammeln oder 

3. ein Ereignis (Intrige) 

Das Ereignis verschafft einem Spieler 
Gewinne, es schadet dem Gegenspieler 
oder aber beides gleichzeitig. Es gibt 4 
verschiedene Arten von Feldern auf 
Ihrem ”Dallas-Plan” (alle hellblau; 
J=J.R.; B =Bobby): 

1. Die normalen Felder 

2. Die Felder, die mit einer Firma 
(Texas Instruments, BamesAVent- 
worth oder Harwood-OU) verbunden 
sind, sowie 

3. Die Felder, die mit Ewing-Oil (ganz 
rechts)und Southfork (ganz links) ver¬ 
bunden sind. 

Auf. den Firmen-Feldem kann man 
Aktien der betreffenden Firma kaufen. 
Sie kosten zwischen 1.000.000 $ und 
3-.000.000 $ (je nach Kurs). Kommt ein 
Spieler auf das Ewing-Oil-Feld, so wer¬ 
den seine Stimmrechte; sein Barvermö¬ 
gen sowie seine Aktien, aufgelistet 
Kommt ein Spieler auf das Southfork- 
Feld, so kann er wählen, ob ein neuer 
(vorübergehender) Präsident von 
Ewing-Oil gewählt werden soll. 

In diesem Falle wird deijenige Spieler 
neuer Präsident der die meisten 
Stimmrechte gesammelt hat Piro'Aktie 
kommen noch 10 Stimmrechte hinzu 
(z,B. zusätzlich 4 Aktien + 15 Stim¬ 
men = 55 Stimmen insgesamt). Der so- 
gewählte Präsident erhält eine 
5.000.000 $ Prämie. 

Nach 52 Durchgängen (= 1 Jahr) ist es 
schließlich soweit: Der endgültige 
Präsident des Ewing-Imperiums wird 
bestimmt 

Präsident wird, wer am meisten Geld 
aus dem Startkapital von 10.000.000 $ 
gemacht hat Zu dem Barvermögen 
kommt noch das Geld für die Aktien. 1 
Aktie kann nun zwischen 2.000.000 $ 
und 6.000.000 $ wert sein. 

Bei den Wahlmöglichkeiten ist der gel¬ 
be Pfeil mittels Joystick über die ge¬ 
wünschte Position zu bringen (rechts- 
links-Bewegung). Anschließend ist die 
Fire-Taste zu drücken. Dies entspricht 
der Maus-Idee, die Bedienung kann 
wirklich von jedem Computerlaieh 
vorgenommen werden. 


Bei den Warteschleifen (z.B. bei An¬ 
zeige der Bilanz) ist die Fire-Taste zu 
drücken, um fortzuf^hren. Nach einer 
bestimmten Zeit geht es aber auch (mit 
einem Ton) von selbst weiter. 

Die Tastatur wird also nicht benötigt, 
ein betjuemes Si^ielen ist gäräntiert 
Das Spielprinzip ist wirklich leicht zu 
verstehen. 

Daß das Kapital und die Stimmrechte 
nur angezei^ werden, wenn man sich 
auf'dem Ewing-Oil-Feld befindet, ei> 
höht die Spannung enorm; selbstver^ 
ständlich können auch Schulden ge¬ 
macht werden (”-” ist blau hervor¬ 
gehoben). 


Programmaufbau: 

100-220: Definition 

230-250: Titelbild (natürlich 3-geteilt, 

wie in DALLAS!) 

260-280: DALLAS-Schriftzug/Copy- 
right/Musik 

290-330: Aufbau des Spielfeldes 
(DALLAS-Plan) 

340-360: Sprite-Definition/Variablen- 
definierung, etc. 

370-380: Tastatur (Joystick) Abfrage/ 
Stimmrechte add. 

390-410: Spielfigurbewegung (links 
oder rechts) 

420-470: Wenn Southfork, dann Präsi¬ 
dentenwahl 

480-510: Wenn Firmenfeld, dann Aktie 
kaufen 

520-530: Wenn Ewing-Oil, daim Bilanz- 
Anzeige^ 

540-550: Ereignis; Summe addieren 
bzw, substrahieren : 

560: Wenn Rund«K 52 Figurentausch, 
zurücl^ sonst: 

570-630: Endgültige Betimmung des 
Präsidenten 

640-650: Weiter (neues Spiel) oder 
Ende; Musik, Stop 

660-670: SUB W(R) Warte-Unterpro¬ 
gramm 

680-720: SUB Taste ,(R,Z1) Joystick- 
Abfrage 

730-910: SUB Intrige (R,Z2) Ereignis 
920: SUB Texas In. (Ze,Sp) TI bzw. 

930: SUB Southfork (Ze, Sp) zeichnet 
die Ranch 

940: SUB Bohrturm (Ze,Sp) zeichnet 
Harwood-ZeiChen 

950: SUB Förderturm (Ze,Sp) zeichnet 
Wendworth-Zeichen 
960-970: SUB Ewing-Oil (Ze, Sp) zeich¬ 
net Ewing-Oil-Gebäüde 
980-1020: SUB DALLAS spielt DAL- 
LAS-Musik 


Die gesamte Graphik ist hochauf¬ 
lösend (durch Call Char), Bildschirm¬ 
farbe: Vorspann: rot/J.R.: schwarz/ 
Bobby: blau ' - 

Variablenliste: 

Z Allgemeine Variable, z.B. für 
FOR...NEXT-Schleifen 
ZI Bei der Wahlmöglichkeit entweder 
1,2 oder 3 

Z2 Summe bei den Ereignissen, 
*lE6==Betrag 

Ze In den SUB-Programmen=Zeile, 
auch allgemein 

Sp In den SUB-Programmen—Spalte, 
auch allgemein 

Sp$(l).=-^j.R:’’.Sp$(2)=”Bobby:” 

R wenn R—l, dann J.R; wenn R—2, 
dann Bobby ■' 

RI =Runde 

Mo().=Geld (Barvermögen) 

BWQ B. Wentworth-Aktien-Anzahl der 
jeweiligen Person 

Tip Texas Instr.-Aktien-Anzahl der je- 
weiligen-Pereon 

HHO Harwoöd-Oil-Aktien-Anzahl der 
jeweiligen Person 

SO Stimmenanzahl der jeweiligen 
Person/allgemein 

ZUO Stimmen oder Geld der jeweiligen 
Person/zusammen 

Die Professionalität zeigt sich u.a. in 
den 9 Unterprogrammen und in der 
Verwendung von linearen Funktionen 
(z.B. in den Zeilen 220-240). Diese 
Funktionen ersparen, in FOH;.NEXT- 
Schleifen integriert, viele Statment’s. 

In das Programm wurden viele Gags 
eingebaut, angefangen mit $-Zeicheh 
als ’Wolken” im blauen Himmel von 
Dallas bis hin zu J.R.’s Bemerkungen 
über ”Denver”u.ä. 

Darüber hinaus finden sich noch 
Anspielungen auf die Beziehungen 
Texas Instruments zu DALLAS: Nicht 
liur, daß der Hauptwöhnsitz von TI 
in Dallas liegt, auch der Tl-Sprach- 
syntheziser hat bekanntlich einen 
leicht texanischen Akzent Und des¬ 
halb läßt Ihr TI-99 J.R. und Bobby 
aüch zu Wort kommen. 

Sie werden sehen: Die Stimme wirkt 
enorm! 

Wenn Sie jedoch keinen Sprachsyn- 
theziser besitzen, brauchen Sie nur 
die CALL SAY/SPGET-Anweisungen 
fort zu lassen. Das Spiel läuft auch 
so ganz toll. 
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Unser Anwenderprogramm stellt eine leistungsstarke Adreßver- 
waltung dar, die komfortabel aufgebaut und bedienerorientiert menü- 
gesteuert ist. Die Aufteilung in Haupt- und Unter-Menüs macht die 
Arbeit leicht. Das Programm erklärt sich^von selbst. Wenn Sie 
”Adressen-Files” fehlerfrei eintippen, so ersparen Sie sich in vielen 
Fällen ein teueres Produkt des Software-Handels. 

Beachten Sie aber bitte Variablenliste und Programmaufbau! 
VielSpaß! 


Variablenliste: ÄNDERN’ > gngftTRigt 

X$: Gedrückte Taste F4: Cursorfarbe und Bildschirmfarbe F2: Eine Diskette \ 

Z: Anzahl der Zeilen ändern ACHTUNG! Fileverlu 

RF: Rahmenfarbe F5: Ein Text im Asp. kann gelesen F3: Ein Text aus c 

HF: Hintergrundfarbe werden abgespeichert 

CF: CRSR Farbe - F6: Der Tabulator ‘PFEIL LINKS’ F4: Ein Füe auf 

L$: Leerstring kann gesetzt werden gelöscht 

K$: Platzhalter für Leerstring in Esp- F7: Sprung zur ‘DIS-VERWALTUNG’ F5: Eine Datei wird voi 

Dateien F8: Sprungzur‘DRUCKERVERWAL- Asp. geladen 

AG$(): Adressenzeile . TUNG’ F6: Eine Datei wird gei 

A$(Z) oder A$(IZ): Aktuelle Zeilen- nen Text im Asp. ange 

nummer Text ändern: Sollten die Tasten F31 

D$ oder DNS: Dateiname Fl: Eine Zeile kann geändert werden. lieh gedrückt worden s 

NDS: Name für zu formatierende Mit denTasten‘CRSR’links und rechts derAbfräge nach dem] 

Diskette kann der Cursor verfahren werden. ‘@’und anschließender 

ID$: ID der Diskette Nach- • einer Änderung muß ein Hauptmenü zurückg( 

‘RETURN’ erfolgen den. 

Zeile 80 sollte als letzte Zeile eingege- F2: Die Zeile, in der sich der Cursor be- Druckerverwaltung: 

ben werden. Sie blockiert die STOP- findet, wird gelöscht Fl: Drucker fährt eine 

Taste. F3: Über dem Cursor wird eine Leer- F2: Die Directory ein« 

In den Zeile 6950-6970 sollte die eigene zelle eingefügt ausgedruckt 

Adresse eingesetzt werden. Ohne FS: Text wird um eine Zeile zurück- F3: Text wird max. 8i 

Sperrschrift ist CHR$(14) und gefahren ausgedruckt 

CHR$(15) wegzulassen. F6: Text wird um zehn Zeilen FS: Text wird max. 4 

zurückgefahren ausgedruckt 

Programmbeschreibung: F7: Text wird um eine Zeiler vor- F6: Text wird in Sj 

HauptmenQ: gefahren gedrucld 

Fl: Ein Text im Arbeitsspeicher kann F8: Text wird um zehn Zeilen 

verlängert werden vorgefahren Es kann jederzeit (aufi 

. F2: Ein Text im Arbeitsspeicher wird . men) mit ‘HOME’ c 

8®iöscht Disk-Verwaltüng: Hauptprogramm zui 

F3: Sprung zum Programmteil TEXT Fl: Die Directory einer Diskette wird werden. 

1 Print chra<i47>;'':fESnEEREE»MmMI'ichti9e diskette tJ/«)" 510 PrinftaWMWMW»» färben aendern •**" 


angezeigt 

F2: Eine Diskette wird formatiert 
ACHTUNG! Fileverlust! 

F3: Ein Text aus dem Asp. wird 
abgespeichert 

F4: Ein File auf Diskette wird 
gelöscht 

FS: Eine Datei wird von Diskette in den 
Asp. geladen 

F6: Eine Datei wird geladen und an ei¬ 
nen Text im Asp. angefügt 
Sollten die Tasten F3 bis F5 versehent¬ 
lich gedrückt worden sein, so kann bei 
derAbfräge nach dem Dateinamen mit 
‘@’ und anschließendem ‘RETURlsr ins 
Hauptmenü zurückgesprungen wer¬ 
den. 

Druckerverwaltung: 

Fl: Drucker fährt eine Zeile vor 

F2: Die Directory einer Diskette wird 

ausgedruckt 

F3: Text wird max 80 Zeichen breit 
ausgedruckt ' ■ ' 

FS: Text wird max. 40 Zeichen breit 
ausgedruckt 

F6: Text wird in Sperrschrift aus¬ 
gedruckt 

Es kann jederzeit (außer bei Dateina¬ 
men) mit ‘HOME’ oder ‘CLR’ ins 
Hauptprogramm zurücl^esprungen 
werden. 


2 9et x:> 

3 if theif) 9 

4 if then 160 

5 9oto 2 _ 

9 Pri’nt chr«<147>;*'SEEEGCEEGEG»iiM»»Mi»»iiliK)Mevkt !'* 

10 0Peri2pÖ7 2#‘*dat5(-l“+*Ss/W’' ' 

20 priYit#2> “data-l“ 

30 close2 

40 0Pein2i8.2.'•dÄta-2«+‘',s/w** 

50 Print#24'•daitÄ-2'‘ 

60 close2 '*• 

70 öPeyi2>S/2.''daU-3'*+'Ss.w" 

80 Pritit#2. ••da.tai-3« 

90 close2 

100 OPe)i2/8/2i*'da.U-4’'+'SsäW‘' 

110 PriYit#2/"dataM“ 

120 close2 

130 0PeTi2,8,2/"data-5‘'+*S«äW" 

140 Priflt#2VdaU“5“ 

150 close2 
160 sas 64738 
reada. 

1 priY)t chr$<147)J 

10 dim a$J<1003> :z*lJdiw ad><5> 

20 Poke650.128 :tua0 _ " 

30 Priiht chr$<8) 

40 Poke5328i:i6:polce53280,4:poke646,l ' 

60 . 

30 Poke788i52 
100 9otol0000 

500 Primt chr*<147>;Jcf*l-rf*4:hf®6 


530 PritifSWiM-ahmcnfarbe-- > f 3 <« 

5-40 Priint"S»miiiint«r 9 ruYidrarbe--— > fS <** 

550 9 efc x$ ' 

560 if x$»chrf< 133 )tKe« cf»cf +i:if cf> 16 thett cf »0 
570 if x 6 »chrikC 134 )then rf*rf+l:if rf> 16 th«tt rf «0 
580 if xf«chrt< 135 >theifi hf-hf+l^if hf> 16 th*B hf -0 
590 if xtachrjKi 9 >orx$»chr$< 147 )thenl 0000 
600 Poke 53280 /rf:pok« 53281 /hf:pokff 646 /Cf 
610 Pok« 211 / 16 :poke 214 > 13 :sas 56732 
620 Print"Cursor" 

630 9otö 550 

890 r 4 w üßkümeuer textüi 
900 Print chr$< 142 > 

910 for i»l to z 

920 af<i)*"« . 

930 next i 
1000 z»l 

1020 Print chr$< 147 >j 

1040 Pok^ 204/0 

1090 re« *iK$alter text##i 

1100 Print chr^< 14 >J 

1105 if len<a 6 <z))>» 40 then 1358 ’ 

1110 9 et xf -if x$®"" th«n 1110 

1120 if x 6 ®chr$C 13 ) then 1300 

1130 if Peek< 653 )® 4 thenll 00 

1140 if x$»chr#< 147 )orx$*chr$< 19 )thenl 0000 

>n 60 if x$«chr#< 20 ) i^hen 1260 

1180 if x$»chrS< 145 )orxS»chrf< 157 )orx$» chr$< 17 )thenll 00 
.1190 if x*®chrS< 95 ) then 1480 
1200 . if xfechr$< 29 >orx$»chrf< 148 >thenl 108 
1205 if x»«chr$< 92 ) thenl 100 
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I if x$»chr$<34> th«Yin00 
I Print x^; 

I 9otO 1100 

I xalen<Ä$< 2 ))“l;if x<0 thenll00 
I Print xt; 

I AirCz)aleftf<Ä$C2).x> 

I 9oto 1100 

I x»Un<4$<z>> 

ifx<39then Print“ “;x$;59otol330 
Print “ - 

for i«x to 39 

•• ; Mxt 

z« 2 +lJif z>1000then Printchr#<l42>:9otoi380 ' 

90tO 1110 

Print“«BmnREniBRRnB»iM»MMmitext zu lan9 !“ 
2*1000 5Poke207#0:poke204^1 
for i»lto500 
9et xf 

if x<*«chrf<19)orxf»chr$<147Hhenl0008 
n*xt i 

^tO 1 0^000 __ 

if tu>39thenl450 . ' 

90t0 10000 

if left<P<Äf< 2 >>l) 0 "“or tu«0 then 1180 

for i«0totu-l 

*»<z>*a$< 2 )+" Print“ 

next i 

9oto 1100 

Print chrf<147>;chr$<14); 

Poke207,0:poke204/1 
for 1*1 to 2 
if «f<i>*k4!thena$<i>*lf 

Print a#<i); - 

next i 
Poke204,0 
9oto 1100 

rem text aendern *### 


3220 fori*lto40 

3230 q«<i>«inld»<af<iz)a^l> 

3240 nexti «x-l^Pok» 649#1:pok#199>1 
3250 Pokel99/1 Jprint tsf; ••9oto3270 

3260 Poke21 l#x-l :Pok«214/20:si#s58732:Print'»ir+q$<x-l); Jlfx»41th«nPrlnt"ir; 
3270 9«t.x0:poke 284#0 
3280 if x$»““ then 3270 
3285 Pok«g07/0:p6ke204#l 

3290 if xt*chrtC148)orx#*chr0<145>orx»«chrf<20>orxl:«chrt<17)then3270 

3292 if Pe#k<653>«4 th«n 3279 

3300 ifx0*chr0<157> then 3509 

3310 ifx0«chr#<29) then 3450 

3320 lfxf*chrS<13) th#n 3680 

3330 if xf»chr0<92> th«n 3270 

3340 if x#»chr»<19)of^x0«chr0<147> then Pok# 199#0Ja$<z+l>«““i9oto 19000 
3380 qt<x)»x$ 

3390 x*x+lsif x>40 then x=41 
3400 9oto 3250 
3450 Poke207#0:Poke204#l 
3460 x*x+lJlf x>40 th«n x»40 
3490 9oto 3260 


iz*l 

Print chr«147);“»iimmil!3|!ä«i3lc TEXT-RENDERN 
if zOl th#n 2300 

Print“mBBEbKKBftfteBUEBUmM<ein text in ' 
for i»lto200 

9«t xf-*if xf«chrf<19)orx**chr#<147>th«nl0000 
next iJ9oto 10009 

Print“im»»W2EILE RENNERN-> Fl <“ 

Prinf'SimiGEILE LOESCHEN-> F2 <“ 

Print“»»0fBEEILE EINFUECEN-> F3 <" 

Print”I»miiEEILE ZÜRÜECK-> F5 <" 


Prlnt“fiiMW10 ZEILEN ZURUECK -- > F 6 <" 4250 I 

Print“»»0»»GEILE VOR---> F7 <” 4260 I 

Print>* ai»MW10 ZEILEN VOR -> F 8 <“ 

a»<0)«"-TEXT-flNFflNG-“ 4970 

te$»“.-^TEXT-ENDE-“ 49 m 

a»<r+l)«tfff:pokel99#l JSS 

Printchrt<14)J 4 ^ 

x»lJpoke207#05Poke204#l 4 ^ . 

if at<iz-l>kfthenafCiz-l>al« 

if af<iz)»knhena*<iz>*U , 

if a$<iz+l>«k*thena><iz+l>*l« 4345 , 

Pok«199/1«Print“ ^B i roBBKBBBlBWMBr } 1$; \t} tf 4345 

PQ^el99# 1 «Print“ ^fc hBB BBKKBBBKBtBBBr; at<iz); ^ 4360 1 

Print“9RnBIBSBUBUB8UBBBBSmS»SppMSSpniiiLi“;iz ' ' 

Pr int“%bfeBftBBBftBftBJIbBBBBBBI“; 44 S 

Poke204#0 ns , 

9€t xfJif xP*"“ then 2709 444 a 

if xt*chr$<133>then 9osub 3299 44 S 8 

if x>»chr$< 134)then 9osü.b 3099 44 ^ 

if x#»chrf( 135)then 9osub 2959 StS < 

if x>*chrP<136)then 9osub 2909 4499 , 

if xf»chrS<137)then 905ub 3109 

if x#»chrf<19)or x**chrS<147) then Poke 199/0:a9<z+l>«““:9oto 19000 
if x*»chr<!< 139)then 9osub 2878 
if x*schr$<140>fchen 9oÄ«b 2850 


3500 Poke207#0:poke204#l 
3510 x«x-lJif x<2 then x*l J9oto3250 
Bltabulator”;tu 3559 9oto3260 

3600 a$<iz)«““ 

3610 :for i«lto41 

100 3620 Uf<iz)»af<iz)+q$Ci) 

3625 a9<iz)«left5<af<i2)i40) 

3630 :next i 
V 3670 Poke 649#10 

3680 return 

4000 Print chr$(147);*nz*0:i«1 
4010 if z<«l then 4159 
4020 Print chrf<14); 

4030 if aP<i)*k$thenaP<i>«l# 

4040 Print afCi); 

4050 9 et xPJif xf*chrP<19)orxfachr$<147)then 10000 

4060 n^mz+l 

4070 if nz>22 then 4109 

4080 i»l+l:ifi>azthen 4190 

4090 9oto 4020 . 

4100 öet xf:if x««"“then 4180 

:T-RENDERN 4120 if x«»chrf<13) then n 2 = 0 : 9 oto 4980 

4130 if xf*chr^<19)orx$»chrJ:<147)then 9oto 10000 
text in 'arbeitssPeicher<" 4140 9otQ4100 ^ 

4150 Print“}SRRBIIBIBSniiniiiittkein text in 'arbeitssPeicher'" 
thenl0000 4160 för i»! to 290 

4170 9et x0sif x»-chrf<19)orx5*chr$<147)thenl0000 
• > Fl <“ , 4180 nexti:9oto .10090 

> F2 <“ 4200 ren adressen einiesen JUibb 

> F3 <" 4210 rs«0Juz«0 

> F5 <" 4220 Print chr$<14) 

> F 6 <" 4250 Prlnt“HRIS»MI»WB«)K« «DRESSEN EINLESEN P#«" 

> F7 <“ 4260 b$*“ö“ 


4270 inPut“nBBBBBbMmmame “;bt 
4200 if b$»“0"then I 0000 
4290 if nidt<bP# 2 #l)*“#" then 4319 
4300 inPwt”l»B»B»»WVornane«;dt 
4310 fU«leftf<bf#l) 

4320 if asc<flb)<193orasc<flf»218then4780 

4330 «osttb 4710JoPenl5#8#15:print#15#"10“J9osub 7050 

4340 oPen2#8#2#fU+“#s#r"i9osub7050 

4345 if wbO"ok"thenclose25closel5J«otol0000 

4350 inPttt#2#xf 

4360 rs*st * 

4380 if rs*64 then 4480 

4390 uz*uz+l 

4400 if rs*64 then 4510 

4420 inPut»2#adf<1> # ad«<2)# adf<3>#ad$<4) 

4430 rs«st 

4440 if nldf<bf# 2 #l)«“*“then 4600 

44M if adf<l)*btandad$<2)»d3orad#<l)»b#and left$<df#l)«"!|i“then 4698 
4460 if rs«64 and U 2>0 then 4480 
4470 9oto 4400 
4480 close2*ctosel5 


9oto 2500 

i 2 *iz+ 10 Jif iz>=z then i 2*2 
return . 

iz»iz-105if i 2 <al then iz*! 

return 

i 2 *iz+l 

if i 2 >*z then iz *2 

return 

i 2 »iz-l 

if iz<»l then iz»l 
return 

ren bbbzeite einfue9enbbb 
Poke207# 0 :poke204#1 
for i«z to iz steP -1 
a3<i+l)»a3<i) 
next i 

z*z+l:if r>I000thcn Print chr3<142)J9otol380 

at<iz)al3 

a 3 < 2 +l)*te# 

return 

ren bbbzeile loeschen#)!!# 

Poke207#0:poke204#l 

if ir>z then return 

for iaiz to 2 ' 

aF<i)*a#<i+l) 

next i 

z-z -1 

a9<z+l)«te3 

a9<z+2)«"“ 

.return 

ren bbbbzelle aendernWid 
tS»*" a BBB B B B B BBKUB B BB B BBB r » 

Poke207#e:poke204#i 


4490 Print^lBB»»tfW»€INTRRO NICHT VORHflNDEN“ 

4500 9oto 4520 
4510 ctöse2!ctosel5 

.4520 Print"TO0»b»»IJEITER «USGEBEN ? > J <“ 

4530 «et X# 

4540 if xt-"J“then4200 
4550 if x«0““then 10900 
4560 «oto 4530 
4600 Print“OTBB BB r' 

4610 for i“lto4 

4620 Print“!»«»iiBmr#adf<l) 

4630 next i ^ 

4640 U2»0 

- 4650 Print“IB»000»00felCHTIOE «DRESSE ? <J/N) 

4660 «et X# 

4670 if x4*“J“ then 4859 
4680 if x4*"n" then 4490 

4690 if x3»chr$<19)orx4*chrs<f47) then 19000 * 

4700 «oto 4660 

4710 : 

4720 if flf*“fl"or€lf*“B“orfl6*“D”orfl4*“E“then fl$*“data-l“* return 
4730 if fl4»“C“orflf«“F“orfl4»"G“orfl$«“H"orfl$«“N"then flf*“data-2''-'return 
4740 if fl4-“I“orflf«"J“orfl#«“K"orfl4«“L“orf.U«"M“then fU«“data-3“-'return 
.4750 if fl4*“P“orfl4«"R“orfl6»“S“orn6»“T“then f16““data-4" sreturn 
4760 if fl4*“0“orfl*-“Q'^orfl$-“U“orfU-“V“then f14«“data-5“; return 
4770 if fU«“H“orf l»**X"Qrfl»»“V “orfU*“Z“then fl4»“data-5“5 return 
4780 Pr int 9bbb0bMBBiBBBBBBBIfl)as erste Zeichen in Nanen“ 

4790 Print“»»»»n8lnuss ein Grossbuchstabe sein {“ 

4800 «et x4 

4810 if X4*chr4<19)örx4«chr4<147)thenl0000 
4820 if x4*"“then 4880 

4830 «oto 4200 . ■ 

4850 cloSe2:closel5 
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4860 for i«l to 4 
4890 

4900 for to Ät . 

4910 ^♦<z>«aif< 2 >+’* " 

4920 Yiext J 

4930 *$<z)»a$<z>+Ädf<i) 

4940 if U«<«f<z)»40theti4990 
4950 for k»lofl<Äf<z)>to39 
4960 aif<z)»Ät< 2 >+'* •* 

4970 next k 

4990 3if<2)»lefti<Ä$<z>j40> 

5000 z«z+l 
5010 Wixt i 

5020 j#$*3if<z-3>*af<z-3)»^i$<z-4) 

5030 af<2-4)*a$ 

5050 9oto 10000 
6000 ren «]((««« drucker 

6020 Pri«t"a5EMiiWiiW5** drttckerverwaltun9 

6030 Print^SEBEEBTOMbeileworschub --> fl <” 

6040 PriT»t‘*2lii*Wciirector» drucke«-> f2 <** 

6050 print"J>iMilbext drucken <80 z.> —— > f3 <" 

6060 Print“Si»iW>lattkoPf drucken-> f4 <*• 

6070 Print”S»»Wltext drucken <40 z.)-> f5 <" 

6080 Print"J*i»ilsPerrschrift <40 z. >-> f 6 <" 

6090 PrinfElWibl^ttkoPf Ä <80 z.>-> f 8 <" 

6200 9et x 45 if then 6280 

6220 if x<acl'ir'$<137> then 6500 

6240 if x»=chr:>< 19>orx4»chr^< 147)then10000 

6260 if xf=chr4<135> then 6550 

6270 if x$=chr<f<139) then 6740 

6280 if x#=chr#<134> then 6820 

6290 if xC»chr$<133> then 9osub 6920 

6300 if x#=chr4<138> then 9osub 6950 

6310 if x4f*chr45<140> then 9osub 69505 9oto 6820 

6400 9oto 6200 

6428 if x^®chr^<19)ÄndsP»l then return 
6430 if x$s=chr$< 147)andsP=lthen return 
6440 if xS»chr4C9)örx$»chrf<147>then 6710 
6450 9oto 6685 
6500 oPen3^4>0 
6520 dral 

6530 Print#3^" ’‘:print#3^“ " 

6540 9oto‘7405 

6550 ren sü««« text drucken 

6560 sP=0:tb*0 

65|0 if z>l 1 i text in 'Arbeitsspeicher'“ 

6600 for i»lto 200 

6610 9 et x4Uf x4=chrt<19)orx#»chrf<147>theni0000 
6620 next i‘9öto I 0000 _ 

6630 inPut“ »fcfe l ;fcfctfcfe l :fcfcfcfcfcftfcl:fc l feteW Mm>ltabulAtQr“; tb 

, 6635 if tb>40 then 6630 
6640 0Pen3/4>7 

6645 if sP«l then Print#3#chr#<l4) 

6650 jal 

« 6660 ifAS<.‘)»k$thenA$<i)alf 
6665 if sP^lthen 6808 
6670 Print#3,tAb<tb)A4<4)tAb<40~tb); 

- 6680 J=J+1Jif4>zthen 670© 

6685 9et x4Ufx«0““then 6420 
6690 9öto 6660 
.6700 if sP*l then return 
6710 Print#35print#35close3 
■ 6720 9otol0000^ 

• 6740 SP»1 

r 6768 if z<*lthen 6598 
. 6770 9osub 6640 
6780 Print#3^chr#<15) 

6798 9oto 6710 . 

6300 Print#3^ 9.t<4>r- 9oto 6680 
6820 if z<«lthen 6599 
6850 oPen3#4#7 
6860 J »1 

/ .6365 ifA#<J)=kfthenA$<J)»l$ 

6870 if A$<J+l>=k4then 

6873 9et x$5if x^»chr$<19>orx$=chrf<147)then 6710 

6875 if And Ä$<J+l)*lf then Print#3#“ ” 5 9otö 6899 

6880 if A*<i+l)*W: then Print#3ia>Ö)•9oto 6899 

6885 Print#3,A#<^>+A*U+l>; 

6890 1*4+2?ifJ>»zthen 6710 

6895 9et x$?if x$“chr$<19)orx2t*chr<?<147>then 6719 

6900 9oto 6865 

6920 öPen3^4 

6930 Print#3,chr$<l0) 

6940 close3?return ^ 

6950 oPen3,4.7:print#3,chr#<14);tAb<10>“P flNftHflSOF T“;chrif<15) 
6960 print#3itAb<25)"4920 Lem9o/WAhMbed<erheide“ 

6970 Print#3,Ub<38>“Lossfaruchtr: Str.3" 

6980 Print#3?close3 
6990 return 

7000 ren *#i*diskettenPr9. *äMi* 

7002 . 

7010 Print chr$<147>; v 
7030 9Qto 7100 

7040 ren iK)|HK4ifehlerkAnAlii(iiKi 

7050 inPut#15/Vt.wf/XfAS## *_ 

7060 if vaUv^) O 0 then Print“g MBWBlg B 

7065 if vAl<v$)*o thenreturn 

7070 if vaI<v#)» 63 then return 

7080 .9et x»?ifx$«chrf<19)orx$*chr$<148)thenreturn 

7090 9oto 7080 

7100 ren *#Jlf*diskwenueJl«lülHH 

7110 Print“SE»MWftiftM(«Ki disk.verwettund HOMi“ 

7120 Print"lEBBESE*M»«irector!# lesen ———' > fl <“ . 

7130 Print“a»»»Wisk fomÄtieren-- > f2 <“ 

7140 Print“»WWbext speichern-> f3 <“ 

7150 Print“»»iltext loeschen-> f4 <" 

7160 Print“»»»Wtext einiesen-> f5 <“ 

7170 Print"2*»>Wtext Anfue9en-> f 6 <" 

7188 Print“»liiiliidresse Uden-— > f7 <“ 

7250 9et x$j ifx$»"" then'7250 

7260 if xt*chr$<l9)orx$*dir#<147)thenl0000 

7270 if x«»chr»<133> then 7480 

7280 if x<f«i«hr$<134) then 7709 

7290 if xs»chr«135) then 8180 

7300 if x#«chr»<l38> then 8350 __ 


7320 if xf*chrf<137) then 8590 
7330 if xi?*chrt<139) then 8890 
7340 if xf*chrf<l36) then 4290 
7390 9oto 7250 
7400 dr*0 

7405 Print chr#<147> ;"»»>•»••»»»#* directon# #Hn«r 

7406 x*0 

7407 if dr*lthenPrint#3#Ub<28)“3Wn( director» **»“?Print#3/“ " 

7410 oPenl5,8>15:print#15/‘i0“ 

7420 9osub 7050 ?closel5 
7430 oPenl,8,0."$0“ 

7440 9et#l,dl?>bl! 

7450 9et#l.df/bl? 

7460 9et#l/d$,b* 

7470 c=0 

7480 if dK>““then c»ASC<df) 

7490 if b$0““then c*c+asc<b$)J|J256 

7500 Print"»»»tW“Mid$<strf<c)i2)tAb<3)"ir; 

7505 if dr«l«ienPrint#3/Ub<38)nidf<str$<c).2>tAb<3)" “;:9oto 7520 
7510 9et xt? ifxS=chr1?< 19)örx^*chr« 147)thenclosel * closelS?9otol0000 
7520 9et#l.b$:if st<>0then 7618 
7530 if b$Ochr$<34) then7520 

7540 9et# 1 ^ b<? ? ifbi;OchrS<34)thenPrintb$; ?» +1 ? 9osub7690 ? 9oto7540 

7550 9et#l/b$^?ifb$*chrf<32) then7550 
7560 Print tAb<29); ?c4?»““ 

7570 .cf*c$+bf:9et#l>b$: ifbfO““then7570 
7580 Print“Prieft3Kc$>3> 

7585 if dr*lthenPrint#3/tAb<25-tf>left*<cf/3) 

7590 »«0:x*x+l?if x>9 then 7660 

7600 if st»0 then7450 

7610 Print " bioecke frei“ 

7615 if dr*lthenPrint#3^tab<8)“bloecke frei" 

7620 dose l?if drslthencloseS 
- 7630 9et X* 

/ 7640 if xf®chr^<19>orx*»chrS<147>thenclosel5;9otol0000 
7650 9oto 7630 . 

7660 if dr*l then 7600 
7665 9et' x« 

7670 if x**chr$<13)thenx*0 ?9oto7600 
7680 9oto7665 

7690 if dr*lthen print#3>b#; 

7695 return 

7708 ren *#*neue datei##3|5 ^ 

7720 Print chr$<147); text absPeichern 

. 7730 ifz<*l then 2278 _ 

7750 inPut“SIEEGEE1cEEECEGEEGEEI dateinane “;d$ 

7755 if d#»chrf<64> «^«18000 

7760 oPenl5/8.15:print#15/“i0“?9osub7050 

7780 dnf»d$+“/Syw“ . * 

7800 oPen2 » 8 >2f dn$• 9osub7050 

7820 if val<vf)*0 then Print#15#“i0"?9osub7050?9oto7950 
7840 if val<vf)»63 then 7868 


7850 close2?clo£el5?9otd0000 

7860 print“9KESCEEEBEBII uebersc^ireiben ? <J/n) 

787^ 9et x$ - 

7380 if x#*“J"then 9oto 7940 

7890 if x$»“n“then clöse2?clbsel5?9otol0000 

7900 9oto7870 

7940 speichere * "‘df 

7960 close2 

7980 oPen2^3/2idnf 

7990 print#2>z?dose2 

7995 dn#«d#+“/s#a"?0Pen2/8/2^dnf 

5000 for i*ltoz_. 

8010 ifäF<i)»l«then af<i)*kS 
8020 Print#2iChrf<34);ai<i> 

8040 next i 
8050 Print#2/“£“ 

8060 close2?dosel5?9otol0000 
.8100 ren ♦♦««itext einiesen**** 

Ö 110 * ' 

8120 ***“" 

llOT if d*»chr*<64) thenl0000 ' 

8140 oPenl5#8/l5?Print#l5/ "i0“?9osub 7050 

8160 dn*«d*+“,s/r“ __ 

8170 • «•dt 

if^w$0“ok“thenclose2:closel5 *90^10000 
8210 z*0?i“l?rsa0 
8220 inPut#2.z 
8240 inPut»2/af<i> 

8250 if a*<i)*k* thenaf<i)»l$ 


8260 ifaf<!)*“£“then 8310 
8280 i*i+l 
8300 9oto 8240 
3310 af<i)»"“ 

8320 Close2?dosel5?9otol0000 
8350 ren ****dajbei loeschen**** 

.8360 Print chrf<147);“SE»m»M*»M(«* datei loeschen ***8“* 
3380 inPut“nE6EBCEEEEEEEEEI dateinane “;d$ 


if d**chrlf<64) •thenl0000 
oPenl5>8i15:print#l5i"i0";9osub7050 
Print"an loesche * “#d* 

oPenl.8.15:Print#l>"s:"+d* 
closel?closei5 
^to 10000 

Print e hr« 147); “a a iM W MH»*» disk f^natieren ***8“ 

if len<nd$)>16 then 8758 
inPut“Sli»»»ft»Mlid nunmer“;idf 
if ■len<id*)>2 then 8770 
Pr int“I»»M»»*r; nd*;" ? “; id* 

Print“Mm»»8bichti9e diskette ? <jVn>“ 

9et x* 

if x*-“n“ then 10000 
if then 8668 

if x#«chr*<19>orx*«chrS<147)thenl0000 
9oto 8588 
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S660 oPeTil » 3> i5 
S670 

S6S0 Glose2:cXoselS 

8720 ÖPewlSi 8^ 15^ Priiftt#15/ "i0" '•9osub7050 
8730 closelS^closel 
8740 9oto 10000 

8750 PriYit ''2*iMWi»ildisk maime zu -lain9 !" 

8755 input VS>Wi»»iMdisk name" f 

8760 9oto 8530 . . 

8770* Pri«t “SliWiiiWIid. mtmer zu lai(i9 ! “ 

8780 9oto8540 , 

8800 Print chr$<147>;”SCEE»»miiiD(«« text anfueSen 
8810 inPut“SGCElCECl£EEEEEEEEin dd.teiname “#d$ 

8815 if d$*chr:><64)then 10000 

8320 oPenl5,8,15;Print#15/ “i0** :9osub 7850. 

8830 dn$*df+’Ss>r'‘ t 

8840 9osub7050*oPen2j8/2>dn^59o£Ub7050 

8850 Print” afc6ftftfetmftmfcTOftMBII lade t";d« 

8860 ■ i f w*0"ok "thenc 1 ose2 ♦'.dose 15 s 9otol0008 
8870 i*z+l-rs=0 
8880 inPut#2^zz 

8890 zaz+zzJif z>-1000 then 8920 

8900 9oto 8240 

8920 z=i-l:close25dosel5 

liiiiniMtext zu lan9 !” 


8930 Prinfa 
8940 for i=lto500 
8950 9et x$ ' . 

8*960 if xischr$<19>orx$=chr4fC147>thenl0000 

8970 next i 

8980 9oto 10800 

10000 rew ##'mhauPtnenue:m:## 

10010 Print chr#<147);chr«142); 

10020 Poke207.0:Poke284.1 

10030 Print'’SEii»»»»i»i»»M(«« textPro9ram 

10035 <c> b-j Panamasoft 

10040 Prinf’SEEliilfcext verlaen9errt-> fl <“ 

10050 Pririt"5Wi*lneuer text-— > f2.<" 

10030 print'*S*Mltext aendern-> f3 <" 

10090 Print''S*Mlfarbeft aendern-> f4 C" 

10100 Print''»PWbext lesen-> fS <" 

10110 Prinf'»i»ltabalator setzen-— > f6 <" • 


10120 Print"5ii»ldisk.Verwaltung — 
10130 Prinf'SiMIdrucker Verwaltung 
10200 9et x*J if xf=*'’‘ then 10200 
10220 if x^=chr$<133) then 2800 
10240 if x$=cbr$U34) then 2280 
102'60 if x$=chr$<137> then 900 
10270 if x$*chrt<135) then 4808 
10280 if x$«chr*(136) then 7800 
10290 if x:r=chr#<l33> then 580 
10300 if x$=chr#<140) then 6000 
10310 if x$achrr<139> then 1450 
10320 if xlf«"e“ then s»s 64733 
10400 goto 10200 ' ' 


> f7 <” 

> f 8 <•• 


10 dim af<5> 

20 diw c$<500,5> 

30 Poke53280,6 
40 Print”»' 

50 Print chr*<14); 

80 Poke7e8/52 > 

100 Print”»EliC»>»mKM(iM(«« ADRESSENSRTEI «««««” 

110 Print"»»»M»Wlfc*ä> <C> ba PfiNAMftSOFT Hm** 

120 Print"SKi»aHreKMi»M»IRus9abe: Adressen >F1<‘' 

130 Print”Sb»»iit»Eiri9abe.: Adressen >F3<” 

140 PrinflMtM^iRendern* Adressen >F5<” 

240 9et X# 

250 if x»schr$<135) i?hen 4068 
260 if xf*chr$<133) then 3000 
270 if x#»chr$<i34> then 1008 
290 if xt««e" then s!#s 64738 
300 goto 200 

1000 ren einiesen adressen 

1001 : 

1Ö02 : 

1010 Print”»CEEii»MiiM(«« ADRESSEN EINCEBEN »««” 

1015 Print chr»<14); 

1020 for i«2to5:a»<i>s”?”:next i 
1030 af<l>»“X" 

1090 inPut”SIEnM»BMMame ”;a«<l> 

1100 if a$<l)*"?i" then 100 

1105 if asc<a#<'l)><193orasc<a$<l>»218thenl090 

1110 inPut''S»Mi»»»r/orname ”;a«(2> 

1120 inPut”S»mi»lilStrasse '';a$<3> 

1130 inPut''£liBMNil>t ":a«C4) 

1200 ren able9en adressen 

1201 : 

1202 fl$*lem<a$<l>a> - 

1215 9osub 5000 
1220 for i« 1 to 4 
1230 0Pen2,8.2.fl<+‘*/S,a” 

1250 Print#2/a»<i> 

1280 close2 
1290 nexti 

1300 Print”2KBBi»MBI4£ITER EINGEBEN ? > J <** 

1320 .9et x$ 

1340 if x#-“J"then 1018 
1360 if x$0”“then I 00 
1380 goto 1320 

1390 s 

1391 : _. 

2000 Print”mnmftftUfeftttiftUftlDas erste Zeichen in Nanen 
2020 PrinflMiMEbiuss ein Gossbuchstabe sein !” 

2040 get x$:ifxB«”’'then 2840 
2050 goto 100 

3000 ren aus9abe adressen ♦»Ni 

3001 • 

3002 : • 

3003 rs*0 5uz*0 , * 

3010 Print''«EfiBBBBi>BM«« ADRESSEN RUSGEBEN «««** 

3090 b4s’'5i'' _^ 

3100 inPut''SEEEEES»»»iii>Name ”;b« 

31ü4 if then lOO 

3105 if widf<b$.2/1 >»•'♦" then 3128 

3110 input”S»NiiMPf/ornane ”;d$ 

3120 flS*lem<bS/0 


.3125 

3130 

3140 

3160. 

3170 

3180 

319Ö 

3200. 

3220 

3230* 

3250 

3260 

3270 

3300 

3310. 

3315 

3318 

3320 

3330 

3340 

3350 

3360 

3380 

34.00 

3410 

3420 

3440 

3450 

3470 

3480 

3978 

3979 

3980 

3981 

3982 
4000 

4004 

4005 
4096 
4010 
4020 
4830 
4040 
4042 
4045 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
‘4130 
4140 
4150 
4160 
4180 
4200 
4220 
4230 
4240 
4250 
4255 
4258 
4260 
4270 
4280 
4290 
4300 
4320 
4340 
4350 
4360 
4370 
4380 
4390 
4420 
4440 
4450 
4460 
4480 
4490 
4495 
4500 
4550 
4560 
4580 
4590 
4600 
4620 
4640 
4660 
4^80 
4700 
4720 
4730 
4740 
4760 
4780 
4800 
4820 
4830 
4850 
4860 
4880 
4900 
4920 
4940 
4990 
5000 
5020 
5030 
5040 
5050 
5060 


if asc<flS><193orasc<fU)>218then2000 

gosub 5000 

oPen 2 / 8 / 2 /f 1 :^+'* / S/r ^ 

iriPut# 2 /X^ , 

rs=st • ^ ■ 

if rs=64 then 3310 ' 

uzauz+1 

if rs=64.then 3328 

inPut#2/a$<l>/a$<2)/af<3)/a$<4> ^ 

rs=st 

if nidS<b^/2/l)="Hf‘ then 3480 

if a#<l>=b^ and äf<2)«dS or a$<0=b$ and left^<d$/1 )='*#" then 3400 
if rs=64 and uz>0 then 3318 
goto 3200 
close2 

Print”aa»ii»B|iEIHTRA6 NICHT VORHANDEN" 

9^tö^|330 

Print"aOTiiMtW4ElTER AUSGEBEN ? > J <" 

get x$ . 

if x#*'*J"then 3000 

if x^O-'-then I 00 

goto 3 340 

Print" IbfibbliBBir 

for i»l to 4 

Print"»»»mmMI"; aPC i > 
ne^t i • 

U.Z*0 

9et x^:if x4:«""then3470 
goto 3300 


ren 3l5#*##aendern eintrag##»*# 


Print".%«BEB»»»M»»»K!(‘i«E ADRESSEN RENDERH WM" 

inPut"{BCEBBEBCIi>ii>iiiiiNane ";b:^ 

if b$e"Z" then 190 

if hidf<b#/2/l>a"*" then 4830 ' 

inPut“mPP»»P»»»P/ornane "/df 

z«l ? 

fl*«lem<bf:/l) 

if asd<fU><193orasc<fU>>218then2000 

gosub 5000 

0Pen2/8/2/fl^+"/s/r" 

inPut#2/xP 

rs=st 

if rsO€4 then 4130 

Prinf’iBEliPMWEINTRRG NICHT 'VORHANDEN" 

.close2 

goto 4850 

if rs*64 then 4299 

inPut#2/ c$<z* 1)/c#<z/2)/ ct<z*3>*c$<z, 4> 
rs«st 

«z*0 :Ju«0 Jkz«0 
z=z+l 
goto 4120 
close2 , 

for jg 1 to z~ l 
Prinf^CEEEBCET' 
for J* 1 to 4 
Jz=Vz+l 

if nidf<bf/2/1)«"*" then 4279 
if c*<i/l>gbf and leftf<d»/l)g"*" then 4278 
if c*<i/l>«0 b* or c$<i,2)Od$ then 4559 
kz*kz+l ^ . 

next 4 

Print"2B»P»MMiPnendern ? 
get x* 

if xi:g‘’JJ' then 4370 
if xBO«" then 4558 
goto '4320 
for k«l to 4_ 

print"»M»»m»laendern '? 

9et x$ 

if x$*"J" then 4488 
if x*0""’then 4590 
goto 4420 

inPut ; c*( i / k > 

uz*uz+l 

if left*<c*<i/l)/l)g"a" then 4550 
next k 
next i 

if Jz>0 and kz*0 then 4830 
if uz«0 then 4850 


> J <" 


I' 


> J <" 


0Penl5/8/15 
Print#15/"s:"+fU 
closelS 

oPen2/8/2/fl*+"/5/M" 

Printl»2/fU 
for isltoz-l 
for Jglto4 

if left*(c$Ci/l)/l)»"0«then 4789 

Print#2/C*<i/J) 

next 4 

next i 

close2 

goto 4850 

Print"ZEEP»i»BP»EINTRAG NICHT VORHANDEN" 


PrinflBEPMiimWEITER RENDERN .? 
9et X* 

if x*="J"then 4000 
if x*0""then I 00 - 
goto 4880 


> J <" 


if fl*g"R"orfl*="B"orfUg''D"orfl*g"E"then fU«fdata-1" ^return 
if f U«"C"orf l#*''F"orf l$*"G"orf l4:a"H"then f Ug"data-2": return 
{;}f«;;P'‘o»'rU="R"orfl*«"S"orfU«''T"then fU="data-4'':return 
if fUn«CI"orfl#*"Q"orfU="U"orfUg"V"then fU="data“5" ^return 
if fU="N"orflig"X"Qrfl*="V"orflSg"2"then fUg"data“5"?return 
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Top-Programm 

des Monats 


+ Gesamtumfang ca. 17 KB 
+ davon etwa 25% MC 
+ bis zu 4 Sprites/Bild 
+ völlig neuer Zeichensatz 
+ Zwischenmusik über drei Genera¬ 
toren 

+ neun unterschiedliche Levels 



UHrtER 


r den Commodore 64 


Brrr, brrr - hier Kalus. 

Guten Tag, Frau Kalus. Hier ist der 
Roeske-Verlag Eschwege. Wir hätten 
gern einmal ihren Sohn Wenzel 
gesprochen. 

Oh, das tut mir aber leid. Der ist zur Zeit 
auf einem Pfadfinderlager in Eschwege 
bei Kassel, - 

Nun, Sie werden sich vorstellen können, 
daß wir da doch ein wenig sprachlos wa¬ 
ren. Das ein echter Freak nicht vor sei¬ 
nem Computer hockt und mit rotem Kopf 
über einer bestimmten Problemlösung 
brütet, ist zwar nicht alltäglich, doch im¬ 
merhin im Bereich des Möglichen. 

Auch die Tatsache, daß schon wieder ein 
HOMECOMPUTER-TOP- 



PROGRAMM aus Bayreuth zu uns 
kommt, ist noch zu verkraften. 

Daß wir aber in Bayern anrufen und er¬ 
fahren, daß unser Software-Experte des 
Monats September praktisch vor unserer 
Haustür sein Zelt aufgeschlagen hat, ist 
doch ein wenig stark. 

Na, da hatten wir unseren diesmaligen 
Gewinner wenigstens gleich parat. 



Wenzel Kalus ist in Westchesler(USA) 
geboren, inzwischen 15 Jahre jung und 
Sc h 111 e r d es G ra 1 - M ü n s l e r-G y m n a- 
siums in Bayreuth. 

Er programmiert erst seit Heiligabend 
1983. als er einen Commodore 64 ge¬ 
schenkt bekam. Daß er in diesen acht 
Monaten so vyeit gekommen ist. ver¬ 
dient eine ganze Portion Achtung. 
Unser Top-Programmierer dieses Mo¬ 
nats ist wieder Beweis für unsere Erfah¬ 
rung, daß man nicht unbedingt von Be- 
‘**** rufs wegen mit Computern zu tun ha¬ 
ben muß. um exzellente Programme 
schreiben zu können. Wenzel Kalus 
steht auch für die vielen sportlichen 
Software-Produzenten, denen der 
Grundsatz des fair play verbietet, 
fremde Programme als die eigenen zu 
vermarkten. 

Und weil er als passionierter Pfadfin¬ 
der stets die Devise "Alvvays prepared" 
im Ohr hat. war es für ihn von vorn¬ 
herein klar, bei unserem Wettbewerb 
mitzumachen. Gesagt, getan! Ein tol¬ 
les Spiel landete bei uns auf dem 
Schreibtisch: EXON RUNNER. Wenn 
wir ein bißchen boshaft werden woll¬ 
ten. könnten wir sagen: Fast zu gut. 
um selbstgestrickt zu sein. 


X 


Das mit vier Mann Besatzung quer 
durch die Galaxis rasende Raumschiff 
York muß wegen eines Maschinen- 
schadens no11 anden. 

Dafür bietet sich der Planet Exon an. 
d e r z u m ei n e n m i t d en d e l'e kt e n Tri eb- 
werken noch zu erreichen ist. zum an¬ 
deren über einen Nasa-Stützpunkl \ er- 
fügt. der die für eine ordnungsgemäße 
Reparatur nötigen Mittel bereit hält. 

Die York peilt also diesen Planeten an 
und setzt zur Landung auf- leider nicht 
genau dort, wo man niedergehen woll¬ 
te. So muß man ein gutes Stück Weg 
zu Fuß zurücklegen. 

Nun hat niemand nach anstrengen¬ 
dem Raumllug etwas gegen einen klei¬ 
nen Spaziergang einzuwenden. Sc") was 
kann entspannen und die müden 
Ast ro n a u t e n k noc h e n wi ed erin B ew e- 
gung bringen. 

b u m 1 n e rw e i s e g i b t e sab e r u n w i rt 1 i c h e 
Gegenden (Exon zählt dazu), wo Erd¬ 
spalten und F'eisbrocken die Wande¬ 
rung zum Verdruß werden lassen. 
Doch damit nicht genug. Ein Myto¬ 
nen schwärm (der Himmel mag wissen, 
was (li r G es e 11 e n d as s i n d!) fä 111 e i n u n d 
V e rs u c h t. d i e \ i e r Besatz u n gs m i t gl i e d e r 
auszurauben und über die Klinge 
springen zu lassen. Wen auf diese un¬ 
schöne Art das Zeitliche segnet, darf 
ohne Raumschiff und doppelten Schub 
als Englein abheben. 

Da kann man nur von Glück sagen, 
daß die vier Astronauten nicht völlig 
weh rl os s i nd: Ei n 1 ei cht vera 1 tete r E1 o- 
Schirm steht ihnen als Schutz vor den 
Angrei fe rn z ur Verfügu ng. Doc h En er- 
gie und Zeit für Schirm und Weg¬ 
streckesind beschränkt, was von Ihnen, 
der Sie den Spaziergang der vier Pech¬ 
vögel zu beaufsichtigen haben, berück¬ 
sichtigt werden muß. 

EXON RUNNER ist, wie wir eingangs 
schon bemerkten, wirklich professio¬ 
nell aufgemacht. Die Graphik sowie 
die Zwischenmusik sind sehr schön ge¬ 
staltet. Der Bildschirm bietet Infor¬ 
mationen in Hülle und Fülle, wird je¬ 
doch nie unübersichtlich. Score. 
Highscore. Zeit- und Energie-Angaben 
sind j e we i 1 s a m ob e re n Bild ra n d so w i e 
zwischen den einzelnen Durchläufen 
angezeigt. 

Durch eine geschickte Spielerführung 
erscheint das Programm trotz des noch 
i m mer großen Ba.sic-An t ei 1 s seh r sc h n el 1. 
sod a ß es e i n i ger Ü bu ng bed a rf. u m a 11 e 
vier Astronauten sicher zur Basis zu 
geleiten. 

Sehen wir nun noch, was uns Wenzel 
Kalus für Angaben zum Program mau f- 
bau sowie den Ladevoreamz macht: 
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Einladen des Programmes: 

’ Das Spiel besteht aus 2 Teil-Pro- 
' grammen, da sich von Adresse 8192- 
16384 Daten wie Sprites, Zeichensatz, 
Landschaftsdaten und Musikdaten 
befinden! 

e Außerdem gewinnt man so eine größere 
Übersicht auf Grund zwei kürzerer Li- 
i stings. Für Datasettenuser wie ich, hat 
es auch noch den Vorteil, daß bei Load 
i Error nicht gleich das ganze Programm 
futsch ist. 

j Man lädt das erste Programm mit 
j LOAD''EXON-INTROD."‘:8 ein. Nach 
* RUN werden nun die Datas eingelesen, 
und zum Schluß das Basic Anfang 
hochgesetzt. Das zweite Programm 
kann nun mit LOAD^EXON RUN- 
NER".8 geladen werden. 


Programmerklärung: 

Die im ersten Teil ein gelesen MA- 
Roiitinen übernehmen folgende Auf¬ 
gaben: 

- Sound für das Lauf 

- Scrollen der Sprite und des 
Hintergrundes 

- Steuern der Sprites 2-4/4 mit Sound 

- Joystickabfrage 

- Kollisionsabfrage: sowie Überprü¬ 
fung. ob sich der Runner noch 

auf dem Boden befindet 

- Zeichensatz verschiMien 
-Flimmern des Hintergrundes mit 

Musik 


Weiterhin werden einige Sprites. 
Musiknoten und neue Zeichen ein¬ 
gelesen. 

Im zweiten Teil wird während des Ein¬ 
spannes weitere Daten (Sprite. Zeichen. 
IRQ-Musik) eingejesen (Zeile 3800- 
4()()0). beim Titelbild die Landschaft 
(40()(M()91) 

Danach erfolgt die Spielanleituna 
(4502-4850). 

In Zeile 3000-3300 wird die IRQ-Musik 
ab- bzw. eingestellt, sowie die Spielstufe 
(1-9). Ab Stufe 1 Mytone 1. ab Stufe 2 
St ein brocken, ab Stufe 5 Mytone 2. 
Außerdem wird mit steigender Stufe 
das Männchen weiter nach links ver¬ 
setzt. Weiter werden Werte wie Time. 
Jumpkraft u.ä verändert. 

In den Zeilen 3-ca. 2100 befindet sich 
das Hauptprogramm. 

In den Zeilen 5600-10000 befinden sich 
die Datas. 

In Zeile lOOOO befindet sich die Ein¬ 
lesroutine für die Landschaft. Durch 
Verändern der Strings kann man leicht 
seine eigene Landschaft definieren, 
man sollte aber darauf achten, daß die 
richtigen Graphikzeichen verwendet 
werden!! 

Variablenlistc: 

0$: Oberfläche der Landschaft 
M $: Mittelstück der Landschaft 
US: Unteres Stück der Landschaft 
SC: Spielstärke 
PU: Punkte 
HC: Highscore 
SA: Time (SauerstofO 
JM: Jumpkraft 
E: Daten für Elo-Schirm 

^■ Ir W ‘W um * 




KM: Strecke, die gelaufen werden 
muß 

MM: Strecke, die gelaufen worden ist 
IT$: Zeit 

0$(X): Oberflächenarray 
M$(X): Mittelteilarray 
U$(X): Unterteilarray 
X: Zähler bei Schleifen 
T: Zähler bei Zeitschleifen 


Screens: 

1. Anfangsbild 

2. Anleitung (2 Seiten) 

3. Spieleinstellung 

5. Spielbild mit Raümschiff/Station; 
Score, Highscore, Time, Energie, 
Sterne, Landschaft (wird gescrollt) 

6. "Game over" fragt, ob man noch ein¬ 
mal spielen will.: 

7. Verabschiedung 


1 CLR: iXR TR I NT'•n” -KiKE53272.294 005 . 

2 ÖOSIJB3000. ‘ . 

3 REM--- 

.4 REM-ENOH MflINPBRT- , 

5 REM“<C>W.KflLUS - 
\6.REM-8530 BflyREUTH- 

7 REM-0921/43012 - 

8 REr*W“--- ' 

19 ME=4TU=’0:TI$=^••000000•■ 

20 POKE53280..0:POKE53281.0:POKE53272.29 . > 

30 PRINT'TlkSeOREi'UPU ’ ^ 

32 PRIHTTflB<14>“nHIGHSCÖRE“ 

35 PRINTTP^B<2e)^^mME••' 

36 PRINTTflBC14>":<"HC 

40 PRINP‘;2ENERGIEH-H-JHHHHH444HHHHH-H4-mHH4444H" 


60 PRINT”KKli 

62 PRINT“ 

63 PRINT“fii 

64 PRINT“ 

65 PRINT“a 

66 PRINT“ 

67 PRINT“ 

68 PRINT“ 
es PRINT“ 

70 PRINT“ 

72 PRINT“ 

73 PRINT“: 

74 PRINT“^ 

75 PRINT“ 

76 PRINT” 



“‘•HEXT 


//\V* . 

\W“ 

1 " 

\ I /“ 

I“ 

•~N_“ 

/“ 

M^S* I “ 

I I“. 

;\“ ■ /V- 
V 

// W 

// \\ spyy 

77 F0RX=1T03: PRINT“Sia 
80 FORX=1TO39:POKE1024+2L*40+X.13UNEXT . . ' . 

.81 FÖRX«1TO80: POKE1024+223l^40+X. 122: NEXT 

82 PRiNT"nrrn suä . 

83 PRINTTBB<23>“TIME:“;Sfl~VfiL<Tr^) ^ , 

84 PRINTTRBi:24.>“)!WäT*";M£ 

85 PRINTTflB<14)":esföCHWIERieKElt: “;SC 
88 PRINTTRB<19>“)I1STRECKE:“KM-MM 

. 90 0$=“ “ : M$=“ “ :U$«“ ” : FORX-ITOS^ 0$<X>-” “ : M$<X)==“ “ ? U$<X>="' “ : NEXTX '-POKEV+21 
91 POKEV+i.205:POKEV+38.1 

100 fi=55: F0RX=RT0255: POKE20,40.140 ^POKEV.X‘ POKE2040.141: NEXT 
103 PRINT” 

105 .F0RX«1T017-* PRINT“ an “ :NEXT 

106 PRINT"^a:«?l«" 

108 F0RX=lT017TRINT“ni ‘ - “:NEXT 

110-.6OSUB800 . ‘ ' 

113 FORX=t 1TO50 : POKEl 184+INTC400s«€RND< 1 > ). 46 TIEXT 
118 P01<'E25?1.14P0KEVt31.1 

T20 PGKEV+21.15 i.P01<E‘*7.255-SCr25: P0KE182.60: POKEV+30.0 
^'.130 POKESI+i9/2:POKBSI+20.3.;POKE251.1 ■ 

140 REN HfiUPT " * 

150 :PÜ=PU+10:ES=ES-1'^ * 

• 160 ONPEEKC251>GbSIJB180V200.. 250.220.320.326.280.-350 

. 4170-GOTO150-’ . - . - 

/18@ PRINT^'^.»»»»»I“; PU; ; TI^ 

185 IF Sfl~VfiLCTI$><0THENTI$i=“000000“*iGOTO3^^ 

.186 IFMN>KMTHEN1000,- .> —\ 

190 SV:34940S+79:RETURN ‘ ‘ 

200 SVS49-152: POKE20rf0.141: NN=MM+1 
' 210 RETURN 
220 Mfi=49408+79 

• 222 PÖKE2040.:i42:FORX=lTOJN/2TOKEV+l.PEEKCV+l>-JMP-l:SVSMfl 
:225 IFPEEKC251>=5THENGOTÖ320 

230 NEXT * ’ > . 

235 GOT+:i700 • . / 

240; F0RX=:lT0JN/2:P0KEy+l.TEEK<V+l.>+JMP+l:SVSNa - 

245'.IFPEEKC251>=5THEN6OTO320 

.246 NEXTjPOKE2040.141 TÖKE251.i*-RETURN - ' 

250 Mfi!=49152N1M#lK+6:G0TG222^^ . 

. 280 IFE8>lTHENPöl<E2Sl/i :.RETURN ' ^ . 

..284 4FEP<1THENP0KE251.1:;RETURN Xi ‘ ^ ^^ 

i 283 TORX=1T0EK-T%KE1024^^^^ ^ , 






jl 















lls SVS49408+g;iFPEEK<^^^ . ■, 


320 REM—— - ' . . 

321-REMFUTSCH_ Ha«-PQk;ESl+ia'33:'P0KESl+4j^| 

ss!f: . , -. 

399 END , 

isi ^ r" • 

illl PRINTTfl|a|>;: )-^ 1 

1050 p?lttIX21;hV 1*1 11 


Tm X3017/EXOH 

la e u.s i*s» -^ 

a a /- ü- 

■'VE COT IT !! 1" 


1030 FKiN'1 1 I 

1040 PP^*^^I21/iQV> /^ 1 • * 

1®50 PRINTTflBa-^,, 1*1 " 

1060 PRINTTHBUy^,, V / X 

1070 PRINTTfiB<l|' , X /l'^ 

IS ?Sli |>; ' . 

iif/ÄS | ;; a 

1140 PRINTTflB<l?? - 

1150 PRiNTTfiBay>;; 

i li 

: IS 

i . 

i lli '■'*■“ 

i ™ SEE VOU so«. OOOIH-.EH 

* : 1996 60701990. 

,: IS S%T^twvS? 

* 1 il S-!ii^i!sisÄ; 

*: iS ?feägÄÄ?s 


3V3bÄ Ar i • • 

3063 GOTO3@60 
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3070 INPyT“^ggCHMI|RIGK|Ig|TU^^^ 

3120 SflSl0-<10:|G>*J,® 

3130 SN®60”G^GC•EP—G0 
3140 Ed4-SC:KM=200 , 

3150 RETURN 
3800 REMPflRT 4- 

3810 REM*T1 TELB IU1 __ -.„-.g^pna. g 

3900 PRINT"2®WW«^ •|J|^^r.";OOSUB5000 

OQ10* PRINTSPC —n • Ä 

5|||SÄ^P^53fi/e , 

Tz.r^ «btutii I i> . -i, 1 I V 11 « 


4016 PRINT" 

4020 PRINT"^ 

4030 PRINT"Ba 

4040 PRINT"B3 

4050 PRINT"® - «II 

4060 PRINT“® II II m ^01 m Wl H M 

4080 priht;:^ n !i S «« ««»t ”; ■ 

4081 PRIHT’ K3 ^ II ^ || ||| )i| %l Wl 

4082 PRIMJ"5i AI H n M M W ** *! ** M u il" 

4083 PRINT S Ai M M M »• « »' ” ” ” ” 

4084 PRINT ® la WENZEL KflLUS" 

40II REM*flNLElTUN6# 

4II2 PRINT"^PIELflNLEITUN|»"^ IHREN RAUM-" ' 

kl BENiWEO.ZU« 

jlIrpSSTffiÄW SÄ"'"“ 

4524 reiNT"a^ *R|TTCT ZU 

^5 »'SfÄ^UfOSTET-JER VERSUCHT 

S4‘^Ä|f “'■ 

4555 POKE1984 0-WFIIT19@tI 

4556 PRINT"n" . 

4fi00 PRIHT“Bl" uflFFEiEIN ELOSCHUZSCHIRME , 

llll^5^Sr?iv?IS^!^ 

' J§! P^SSrERnUCHT 

JSi fRIHfOOW S^^StS^JO ZU^gffi':, . . 

' B SI#H?W&^“S?TlfH4.TEÄ>«-^ 
IS S’Ä;HR«H|W«^ 

IS »’-K ® 

5S Ä;ÄTOJEBJHOI" 

4 S PR1HT"«J0VSTICK TORT gp^y,^ WEIT" 

:S Ä’-WiSJeei 
SItoiIS;; .-)te!£e!: 

4^0 ^E198-Ö-HRIT1R8»1 
•4999 RETURN 

5000 RENPPPXt?c TifiTfl* ' 

5001'REMÜfSPRITE-BflTfi» . -• 

5002 REMCOBOLD 


1-1 , .' X " 

I r U \ .. 

1 ~i - // Vs I_! U,, ' 
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' 5010 

• 5020 

I ; 5030 

! 5040 

• 5050 

► ; 5060 

5070 

• ' 5100 

I ! 5110 

5120 

• 5130 

' 5140 

1 5200 

• 5210 

; 5220 

, 5230 

• 5240 

; 5250 

I 5260 

• 5270 
8790 

I 8791 
I 8792 
' 8000 
8005 
8010 
8020 
8030 
8040 
8050 
8060 
8070 

_ 8000 
^ ! 8090 

. 8095 

A • 8900 

^ ; 89ia 
' I 8920 
A • 8930 

^ 9000 

• 9010 

• ; 9015 

^ •' 9020 

• 9025 

• : 9030 

• 9035 

• 9040 

• • 9045 

• 9050 
' 9055 

I '! 9060 

I 9065 

• 9070 
^ ; 9075 

I 9080 
; 9085 
I 1 9090 

; 9095 

• 9100 

; 9105 

• 9110 

•. 9115 
' 9120 

• 9125 

• 9130 
1 9135 

• 9140 
' 9145 
1 9150 

• 9155 
? 9165 
[ 9200 
I 9205 
' 9210 

9215 
9220 
9225 
9230 
9235 
9240 
9245 
9250 
9255 


I'fiTflif= P0KE896+I, X: NeXT' 

iEiWSNIKER ' 

f;«.0 32.ia?,e 


ENGEL 

REM*IRQ-/»iusjq 
EORiaeagjQggig 


13385.92, 13,255.252 


88. 96 


^M*INI TIRLISERUNG 


S3T;ifS'r-~e. 

®8Tfll24,102, ißS 230.230, a 

WTfll26;i||;^||-I243230.230.252. I 
»RTR120,}||;j||' 963 224.230.254. 0 . 

^^ftief IfI 

9flTfll02.102 Jii5''^®®''230.254. a 

»'Itf «-«.'i I 

BBTfl 99^ 1 IQ. 1 224/226/2.54. a 

»i &§' I 

atf; l'l I 

Ä0|.1||:i||;J||;2|fe^ I . 

i^inll5, 99, qq 7n?'J®2. 60. 24, a 
DRTfll02.102 ^19. 99, a 

mS II' =«' 2® « 

if"i“-'i'S; I; ii- | 


0 
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V 









9260 DRTfi 3 

S THENfRlNT-FEHLK IN.mTflS f.-.B«, 


■ta 'M$<7 )»"^\^,_jk(| tKMf^ii 




V i -- *'T^-unino ! "•END 

• REMPflRT lö 

I 1I02I ^^”*'-flNDSCHflFT 

• J 10030 .’ 

I 10100 Q»(l>ai"_ „ ^ 

• i iliil ^ -»»■■ 

i ilill 

• i 1I15I -^v^- 

i 101II 

® J 10170 8^»" 

• ; 101I0 S=&iSJ5;''*iNT<8*RND<t»+i 

1 M*=M|:+M#<v> 

• I Jfli® 'J#=u$:+u$<:v> 

• ;• 10220. NEXTX 

f f0230 0$a0t+MID$<0^. 1 ie:\ 

I J 10263 fl$=ui ®®^®^®270 ■ 

I 10300 RETURN 
> ; RERDV. 

i I i:ä********** 

' ? kalus * 

, 4 rem'»!Pr9. 1 # 

; f •'ew************ 

: M Jjy**«**«««* 

; S », 

•'. II r®”**********»*** . 

; fl r®?® 2 +i 024 .s «0 

I ®0 dat* 97^8f247,'«>®Ql*^o'fi ^5®'^2^247,9 

j. fl data 11,97,8.487n^9f'fi®jH'7®'^2'48 
I 67 data 152,5,9778 97,8 

I <58 di9.t9. 11^ 104,9 ,3^48 
; II data 6,233,7: i|?s^Ai®V,i233,7,1^^^ 

70 9«9+l:ifQ<4fui„^l®i‘^®2"7,0,0 

71 ifsOl992Ä?r.iÄ!^7““^?2:9ot^^^ 

72 Priint"ok".s=0 m data":eytd ' . 

if riar****'ft» «»«««««», ' ■ 

8 "S"*'“’**! , • 

|4 
86 .' 

88 i?ri*f®^52to49161 

100 fori« 49162 to 49231 
115 •'®*dx:Pokoi,x:s=J|?„^^^ 
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116. dÄtÄi62> 140/142.248/7 
120 df.t9il64/ 2/200/185/ 0/ 32/141/111/ 7 

125 datalSS/ 0/ 33/141/151/ 7/185/ 8/ 34 

130 da.tiil41/l91/ 7/132/ 2/173/ 6/208/248 

135 data 10/201/ 3/240/ 6/ 56/233/ 3/141 

140 data 6/208/173/182/ 0/240/ 6/^56/233. ' 

145-data 1/141/182/ 0/.173/. 4/208/201/ 3 

150 data240/ 6/ 56/233/ 3/141/ 4/208/ 76 

155 data 19/193 

160 ifsO 7466 the*nPriiftt*'fehlr^ ir' datas!!" 

165 Prit)t“ok'*isa0 

166 J 
168 

169 rem* Code ii # 

170 

171 • 

180 fori» 49427 to 49527 
. 195 readx:pokei/X5s*s+x5inext 
200 datal€9/ 20/133/105/169/ 4/133/ 98/169 

205 datal20/133/ 97/165/98/ 41/3/9/4 
210 data 32/ 47/193/198/185/ 16/243/ 76/ 79 
215 datal93/133/ 98/160/ 0/177/ 97/170/168 

220 data 39/177/ 97/ 72/138/145/ 97/184/178. 

225 datal36/ 16/245/ 24/165/ 97/185/ 40/133 
230 data 97/144/ 2/238/ 98/ 96/174/ 6/283 

235 data208/ 34/166/253/248/ 3/ 76/283/193 

240 datal69/ 8/141/ 4/212/169/ 17/141/ 4 

245 data212/162/252/138/142/ >6/288/162/ 0 

250 datal34/252/133/253/162/ 8/142/ 7/208 

255 datal73/ 7 . 

260 ifsO 11388 thenPriyiffehler iift datas! l" ^ etid 
265 Pri«t'’ok*':s»8 
270 J 

. 271 : . 

280 fori* 49528 to 49628 
295 readx5Pokei/X‘S«s+x5inext 
300 data208/168/140/ 1/212/170^142/ 42/208 

305^datal66/252/208/ 19/ 24/105/ 3/201/180 

310 data240/ 6/141/ 7/288/ 76/203/193/232 

315 datal34/252/ 76/283/193/172> 6/208/136 

.320 datal36/136/140/ 6/208/224/ 2/288/ 19 

, 325 data 56/233/ 3/201/150/240/ 6/141/ 7 

330 data2e8/ 76/203/193/202/134/252/ 76/203 
335 ‘dätal93/ 24/185/ 3/201/210/248/ 6/141 

340 data 7/268/ 76/203/193/232/134/252/ 76 
345 data203/193/173/ 4/208/246/ 9*/ 56/233 

350 data 3/141/ 4/208/ 76/240/193/286/ 4 

355 data208/173 . .. . 

360 ifsO 14077 theYiPrit^ffehler in datas!!" • end 
365 Print"bk“Js*0 . \ 

370 : " 

371 t 

380 fori* 49629 to 49729 
395 readx*Pokei/xis*s+xJnext 
400 data 16/208/201/ 4/288/ 8/169/ 0/141 

405 data 16/208/ 76/248/193/169/ 4/141/ 16 

410 data208/174/ 3/288/240/ 78/224/204/240 

415 data 52/232/138/142» 3/208/168/ 1/ 74 

420 datal36/203/252/ 24/105/123/170/134/ 93 
425 data 10/133/189/169/135/133/ 97/ 32/167 
438 data226/166/162/134/186/162/135/134/185 
435 data 32/226/186/32/251/183/ 24/165/182 " 

440 dataiei/ 20/141/ 2/203/ 76/ 67/194/162 

445 data 8/142/ 3/268/162/ 68/134/182/230 

450 datal81/162/ 8/134/251/238/ 40/203;238 

455 data 0/212 . . 

460 ifsO 13242 thenPrint'*fehler in datas!! ”: end 
465 Prinfok" Js*0 
> 470 : 

471 : 

480 fori* 49730 to 49842 
495 readx:pokei/X‘S*s+x5next 
500 data- 96/162/ 5/134/253/173/ 18/288/201 

505 data253/144/ 8/162/ 6/134/253/ 24/ 24 

510 data 24/ 24./162/ 0/130/141/ 30/208/142 

515 data 31/208/173/ 30/288/170/ 41/ 3/201 

520 data 3/248/ 14/138/ 41/ 5/201/ 5/240 
525 data 7/138/ 41/ 9/201/ 9/208/ 5/162 
530 data 5/134/251/ 96/173/ 31/268/41/ 1 

, 535 data208/ 5/162/ 6/134/251; 96/162/ 1 

I 540 datal34/251/174/ 0/220/224/119/208/ 5 

I 545 datal62/ 2/134/251/96/224/118/208/ 5 

1 550 datal62/ 3/134/251/ 96/224/126/208/ 5 
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end 


555 datal62/ 4/134/251/ 96/224/.li 1/268/ 4 

556 datal62/ 7/134/251/ 96 ^ .« . i. . 

560 ifsO 13406 thenPrinf'fehler in datasn"-Prints- 
565 Print"ok"*5*0 

570 5 

571 : . . * ; 

572 

573 rew^cöde 3# 

574 rew##*#*##* . - 

575 *!’ 

600 fori*51000to51000+14 

620 datal60?255/23l/32^20l/238/15/212/238/39/208/136/208/244/96 , 

630 ifs02527thenPrint"fehler in data code3 J end 

i900^?en*äif55#3if##3i53*{ Part . 

5910 rem?»? datä t 
5920 reM3»?sPrlte * - 

5930 rem* *. 

5940 rem*stone. * . 

6000 fori*0to62*readx*Poke704+i/)5:*next ^ ^ 

6010 data. 0/0/0/0» 0»0^0'0^ 0/0/0/0/ 0/0/0/1/182/0/7/243 
6020 data .0/15/246/0/ 15/230/0/23/ 284/192^25/221_ 

6030 data 240/61/217/252/ 60/255/252/62/ 255/112/30/.255 

6040 data 6;3i;25i/255/ 7/255/248/3/254/48/1/252/ 0/8/120/0/0/0/.0> 

6850 rew*man-stander * 

6068 rem*****?f?******** 

6100 fori?s0to62 • readx • Pokel41*64+i / x: next , ^ « 

6110 data0/255/0/0/234/0/0/^34/0»0»255/0/0/252/0/1/85/0 

6120 datal/125/0/1/125/0/13/125/0/13/125/0/13/95/0 : 

6130 Ä3/i7;i92/2:i70:i24,0/255/0/0/255/0/3/207/0/3/207/0. 

6140 data3/207/0/ 3/287/0/3/207/0/2/207/128 - 
6150 rem*Man-ruhner * 

6160 rern************** , ’ 

6200 fori*0to625readx5poke64*140+i/x:next ;• _ 

6210 daU 0.255.0. 0'234.0. 0.234.0. 0.255.0. 0.252J ^ 

6220 data 1.85.0. 1.125.0. 1.125.0. 189 '248. 61.87.248. 1.85.0. 
6230 data 1.85.0. 3.255.2. 3.255.0. 3.206.0._3.206.0 _ 

6240 data 15.3.132. 15.3.132. 68.0.240.60.0.240. 42.8.168 
6300 rem*man- j»JimPer * • . 

6310 rem************* . a. 

6320 fori*0to62: re.adx • Poke64*142+i / x J next . 

6330 data0/255/0/0/234/e/0/234/0/0/255/0/0/252/0 
6348 datal/ 85*/ 0» U 125/0/1 /125/0/189/95/248/61/80240 
6450 datal/85/0/1/85/0/3/255/2/3/255/254/191/207/254 
6460 datal91/207/254/191/192/8/128/0/0/0/0/8/ 8/8/0/ 0/0/8 
7000 rern*********** Part 4 ************ 

7010 rem* Zeichen * . 

7020 rem*definitioh# 

7830 rem************ 

7040 s=0 . 

7100 fori*52000to52052:readx 
7110 Pokei/X‘S«s+xJnext 
7120'data120/165/ 1/ 72/-41/251/133/ 

7130 datal69/ 48/133/5 
7140 datai77/. 2/445/ 4/200/208/24^9/230/ 

7150 data208/242/104/133/ 1/173/ 24/208/ 

•'7160 datal41/ 24/208/ 88/ 96 , 

7170 ifs05884 thenPrinffehler in datas"-end 
7180 print’-‘ok**-sas52000 
7190 i'ern************ 

7195 rem*data-character* 

7210 f?rb«0to7^readaVokel2288+<a+20)*8+b/a :.next^ 

7220 «extx - . 0, 32. 64.123.137,239 

8. 0, 0, 8.145,119.^5 

0. 0, 8. 24. 57.189.255 

64.160196 ,248.228..170. 37 
fiifo f«.. *. 3. 7. 5. 15. 23.123.205 

7280 datall7.128.192.248.124.192.240.240.}92 
7290 dätal06. 1. 7, 15, 3, 1' 

7300 data 76,128.132,224,192.192,230.228.^5 
7310 datal22. 1. 1. 3, 7. ü' 95.243,^5 

7320 datal02.225.217,221.212.235.245.107.189 
7330 dataSS . 24. 24.255.189.189. 36* 36.102 
7340 data 45.24 ; 60,102.102,195.195.195' 0 

7350 data 87,243,219.219,219,219,219.^7, _0 
7360 data 95.255.195.139.181.173.189.195,255 
7370 data 93.255, 8,255. 0.255. 0.255. 0 

8000 fori*16384tol6384+4!Pokei.0:next ^ 

3010 Ppit>t“al6ad"chr»<34) "«ai»-exoin“ch»'4:<34> 

8020 clr!Pokc44.64 


1.169.208.133. 3 

2,132, 4.162. 32 

3.230. 5,202 

41.241. 9. 12 


7230 datalll. 0. 
7240 datat21. 8. 

7259 data98 , 8. 

7260 data77 ,128. 

7270 data 78. 1. 
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Ten 


für den ZX-81 


16514. 

16515 


Es liegen 3. Listings vor: 

1. Ein Programm zum Erzeugen einer 
geeigneten REM-Zeile sowie zur Ein 
gäbe des Masehinencodes * 

2. ein Maschinencodelisting des 
Programmes 

3. ein Basicprogramm, welches das Ma¬ 
schinenprogramm abruft 


Zeile 1-7 stellt den Speicherplatz für 
das MC-Programm zur Verfügung. 
Zeile 10-100 erzeugt aus diesen Zeilen 
1-7 eine einzige Zeile. 

Zeile 110-180 dient zur Eingabe des 
Maschinenprogramms. 

Zeile 190 enthält einzelne Prüfsummen 
(sehr nützlich zur Fehlersuche) 


zeigt den Inhalt der Speicherzellen 
16514 bis 17346 und bildet das eigent¬ 
liche Programm^, (U=Unterprogramm) 

16514/16515: *2 Newlines machen 
REM-Zeile sichtbar 
16516-16577: Vorspann 
16580-16592:. Unterprogramm Zeit¬ 
schleife 

16593-16713: Daten für Vorspann 
16714-16754: Zeichnen des Spiel¬ 
feldes 

16755-16761: Initialisieren 1 
16762-16815: Initialisieren 2 * 
16816-16840: Hauptprogramm (Aufruf 
der Unterprogramme) 

U16841-16852: Zeichnet den Schläger 
des Computers 

U16853-16864: Schläger des Spielers 
U16865-16911: Zeichnet den Ball 
16912rl6993: Hierhin springt der 
Computer, falls festgestellt wurde, daß 






der Ball aus war. SCORE wird ermittelt 
und falls groß genug (20), Rücksprung 
zum BasicT ansonsten zu ”Initiali- 
sieren** 

U16994-17006; Löscht Ball und Schlä¬ 
ger (veraltete Position) 

U17007-17020: Ermittelt die vorläufige 
Ballposition 

U17021-17090: Ermittelt die vorläufige 
Position beider Schläger (Tastatur¬ 
abfrage) 

U17091-17196: Korrigiert, wenn nötig, 
die Position des Schlägers (wenn Schlä¬ 
ger am Rand) und stellt deren end¬ 
gültige Position fest Dann wird 16841 
und 16853 aufgerufen (Zeichnen der 
Schläger) 

U17197-17346: Korrigiert, wenn nötig, 
die Ballposition (z.B.: wenn Ball am 
Rand); stellt fest, ob der Ball im Feld ist 
(dann SÜET), am Schläger öder im Aus. 
Falls der Ball am Schläger ist, so wird 
mit Hilfe des R-Registers bestimmt, ob 
ersehnen oder langsam zurückgeschla¬ 
gen wird. Ist er im Aus, so 'wird die 
Variable ”Aus” bestimmt, so daß er. 
beim nächsten Durchlauf durch das 
Hauptprogramm nach 16912 springt 


Das Basicprogramm ist in das 2. einge¬ 
baut Stellt fest, wer gewonnen hat 
Die REM-Zeilen enthalten wertvolle 
Tips. 

Es wd gespielt: 

Schläger hoch: Taste. ”0” , 

Schläger runter: Taste ”Newline” 

Nach 20 Punkten ist das Spiel 

beendet 

Viel Spaß! 


13 FÜR N=1 TO 100 
16'NEXT N 
'20 CLS 

30 IF PEEK 3200.8=2 THEN PRINT 
RT 10,0;"BRRÜO,SIE HABEN GEWÖNNE 
N.NOCH EINHRL ?(J/N)” 

4.0 IF PEEK 32008=1 THEN PRINT 
RT 10,0; “NICHT flUFGEBEN.NOCH EIN 
MfiL?(J/N)’* 

50 INPÜT R$ 

60 IF Ri=”J“ THEN GOTO 10 
70 IF R*<>“N“ THEN GOTO 50 
30 CLS 

90 PRINT RT 10,0;“DANN EBEN NI 
CHT NOCH 'EINMAL -..“ 

100 PAUSE 4.E4. 

» 110 STOP 

120 FÖR 1=16514- TO 1734-6 
130 PRINT I, - 

14.0 INPUT A 
150 POKE I,A 
160 NEXT I 


16572 

16573 
16574- 
16575 
16575 
16577 
16573 

16579 

16580 

16581 

16582 
16533 
16584. 
16585 
16536 

16587 

16588 

16589 

16590 


4-7 
4.3 
4.9 

50 

51 

52 

53 

16654. ' 

16655 

16656 

16657 

16658 

16659 

16660 
16661 
16662 
16663 
16664- 

16665 

16666 

16667 

16668 

16669 

16670 

16671 

16672 

16673 
16674. 

16675 

16676 

16677 
15678 

16679 

16680 
16681 
16632 
16683 
16684- 

16685 

16686 

16687 

16688 

16689 

16690 

16691 

16692 

16693 
16694. 

16695 

16696 

16697 

16698 

16699 

16700 

16701 

16702 
03 
04- 
05 
08 
07 
08 
09 
10 
11 
12 
13 
14. 

15 

16 

17 

18 

19 

20 
21 
22 
23 
24- 

25 

26 

27 

28 
29 
>^30 
21 
22 
23 
34- 

25 

26 
^37 
28 
29 
'4.0 
'4.1 
'4.2 
'4.3 
/4.4. 
'4.5 
/4.6 

1674.7 
1674-8 
1674-9 

16750 

16751 


smeMseK 1994 
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I 16760 — 0 

! il?ll ■ “5 

• I 16762 — d.2 

' ii?lf - •« 

: ii7ii : !* 

• ; ii?i? : 

iilil : g* 

• 16770 - 2 

• • imiz h 
imtzh 

• I il??! : ii^ 

• 16777 11 

- I !S??I : }», 

* ; il?IS: 8 

, fSII -1! 

I I 16784. 6 

^ ! 16785 - 13S 

J 16785 - 175 
16787 - S0 
I • 16788 - s 

^ i 16789 - ISS 
I 16790 S0 
J 16791 9® 

^ I 16792 - ISS 
> I 16793 - 33 
t 16794. - 33 
1 16795 - 0 

I 16796 - 17 
’ • - 2S5 

• f|?Si - 255 
I ~ 34. 

. 16800 10 
I 16901 - 125 
* 16802 » 

J 16803 - §E^ 

• 16804- - IS 

I 16805 - ISS 
I 16806 - Ü 
I 16807 - lis 
I 16808 - 205 

• Jff •' 561 

I 16810 - 65 
I 16811 - 62 

16312 - 5 * 

; illg: i?i i 

• illif - 3 

; illilziis J 

• 16319- - 20B ? 

; - lil i 

• 16822 - Is t 

I 16323 - 3 ^ 

I älS 5 Üf 

}t"?: Jl‘ ä 

16|29 - 205 fl 

16830 — 111 1 

«|31 - 66^ 1 

iilii: fli ii 

iiiU z Hl I 

illi® z ii® 

ilifl - IP ii 

iii*! z 21 li 

1684.2 - 4 t|. 

lpt1 Z 5 ili 

füg: 3= lli 

älig: il» i 

liSea “ IIS 16S 

iiii? z ffg lil 

Hilf - 201 iil 

illll Z 169 

iiiii z y III 

Ifiia -- lli 

Üllf :f8 }||: 

16362 - 25 JfS 

iiaif “ ^992 

lisii z 11 ^ . fiii 

ilifl ' If® iiis 

äiii 


72 - 125 

73 - 167 

“75 - 15 
76 - 237 

ZI ” 75 

78 - 12 

79 - 125 


8 - 126 
- 254. 


ir 

ll 
!■ 

1 
1 

16914L 
16915 


16990 - 66 
:}gg91 - 195 

16992 - 12S 

16993 - 65 

16994. 175 

16995 - 205 

16996 .. 201 
-16997 • 65 • 

16998 - 205 
ff|99 - 213 

17000 - 65 

17001 - 42 

17002 6 
J7003 - 125 
}7004 -. 54. 
17005 - 0 

•f7006 - 201* 

17007 - 4S 

17008 . 6 

17009 — 12S 

17010 - 237 

17011 - 91 ■ 

17012 - 12 

17013 - lis 
i?2J4 "• ^®7 
17016 ^10 

ivtil z |§s 

l-70l| _ f ® , 
17980 - s^l 
17021 — 22Q 
17088 - Hi 
17083 - 98 
1708* - si 

}ZSS? - 205 

17026 -» 187 s 

17027 - 2 

17028 - 1 

17029 - 33 

17030 - 0*^ 

}ZS3i - 503 

17032 - 76 
17633 - 32 
1763* - 28 
- 203 


17109 - g 

17110 - 34., 

- 17111 - * 

?7118 - las 

171?? ■ S29 
3-Zll* - ,837 

17115 75 

17116 - 12 

17117 - 64 

17118 - 167 
J2119 - 237 

17120 - S 6 

17121 - 1 ® 

17122 - 182 

17123 - 2 

???Sä - 167 

17125 - 237 

17126 - 66 

17127 - 225 

?7iiS ■ 62 

17129 - 6 

17130 - 1 

17131 - 33 

17132 - 0 

17133 - 167 

i7iiizir. 
i?il? z I* 

Igfl: lil 
iliti - ^ 

1714.3 - if 


16941 -.12 
JfSf? - 64 


17037 - 40 

17038 - 11 
J7039 - 203 
17040 - 101 
f7g4.1 - 32 

17042 - 14 

17043 42 
17044. - 2 

“ ^55 

17046 — 237 

17047 - ie 

17048 - 24 

17049 - 4 

17050 - 42 

17051 - 2 

17052 ^ 125 

17053 ^ 9 

i?2Ii ~ ®6S 

17055 - 24 

17056 - 4 

17057 - 237 

17058 - 91 

17059 - 2 

17060 -. 125 

17061 - 4i 

17062 - 4 

17063 - 125 

17064 - 237 

17065 - 95^ 


|gl|: ü? 
ga?: Ii’ 
gätl: g 

f7150 - 189 

piil z ii® 

i|ii| Z t 

Hill z p 


17228 - iia 
.17229 - 190 

17230 - 43 

17231 ^ 40 

17232 - 62 

17233 - ^ 

iiß-'ip 

IIHI z p 
ißi z r 

•17240 - ISS 

imi z IP 
i?!** ■ 
i?ltl z p 
i?ltl z p 

1724.9 - 50 
1-7250 _ 8 

17251 - 19S 

17252 - 2 * ® 

-H||3 - 1*0 

17111 Z fl 

Hlil z lil 
i?lil z Ip 

Hilf: II 
Hlii: ir 

1726* - 12 


17157 - 9 

17158 - 3 *. 

17159 - S* 

i??f? ■ 
J?lfl - 229 

i??fS ■ *37 

17163 - 75 
1716* - if 

17165 - 8 * 

17166 - 167 
}71|7 - 237 

17161 Z f® 

.HH! Z f« 

ifil* ■ 

1717* - 66 

- i???f " 2*5 

17176 - 32 

17177 - 6 
17173 - 1 

17179 - 33 

17180 •- 0 
J7181 - 167 

17182 - 237 

17183 - 66 


itiu z in 
iiiiizlr 

iliil : If* 

16963 - 28* 
1696* - 19 

16965 - 237 

16966 - 111 

16967 - 19^ 

16968 - 35 

16969 - 16 

iil?? - *33 

16971 — 27 

16972 - 2-7 

16973 - 27 
1697* - 2-7 

16975 - 62 

16976 - ll 

16977 - 18 

16978 - ,*| 

16979 - la« 

16980 - lil 

16981 - 32 

16982 - 200 

16983 - *3 

Hifi - 126 

.16985 - 254 
16986 - 32 

HlfZ - *00 

16983 - 205 
16989 - 93 


17066 Z Ha 1718* - 3* 

17067 — IS 2 , 

17068 - 40 ^25 

17069 - 19 iZiil - Ö2 

17070 - 9 iZi33 “ ^33 

17071 - - 205 

17072 ^ 75 . i?ig? - 201 

17073 - 6 i?iiä - 65 

1707* - 125 i?Jg* - ai4. 

17075 - 237 i?ig? ■ 128 

P076 - 66 i?igi - 205 

17077 - 250 i?igf - 216 

L7078 - 192 i?Jg 6 ' 65 

L 707 a - s« 17197 - 225 


17067 - 15 

17068 - *0 

17069 - 19 

17070 - 3 

17071 - 237 

17072 - 75 

17073 - 6 

i?g?i - 12 S 

17075 - 237 

17076 - 66 

i?g?I - 250 

17078 - 192 

17079 - 66 

17080 - g 

17081 - 1 

17082 - 66 

17083 - 0 
1708* - 237 

17085 - 66 

17086 - 193 

17087 -201 

17088 - g 

17089 - 193 

17090 - 201 

17091 - 197 
170|f - 237 
17093 - 75 
1709* - 12 

17095 - 6 * 

17096 - 229 

17097 - 167 

17098 - 237 

17099 - 66 

17100 _ 62 

17101 _ 1 

1710f - 189 
17103 - 225 
1710* - 32 . 
I7i0sr ^ ^ 

17106 - 1 

17107 - 33 
17103 r. 0 


Hill z Hs 

fpii : II 

i?f??' - 223 

17071 - 33 

17272 - 0 

17273 - 0 
1727* - 237 - 

17275 - 75 

17276 - ip 

17277 - lis 
17273 - li? 

Iipi r IP 
ipii z ir 
Hilf z f®® 
Hill z iff 
Hlilzfp 

i?|gg - 125 

17j590 — 20 S 

17291 - 111 

17292 - 66 

17293 — S4 
1729*4 — 199 

17295 - If 

17296 - 5 
.17297 - 190 

17298 - 40 

17299 - 7 

17300 - 62 

17301 - 1 

17302 - 50 

17303 - 8 - 

i?igi - 125 
1730,5 - a* 

17306 - 137 

17307 - 58 

17309 Z lis 

ipif ; i®* 

17312 - 32 

17313 - 10 

1781^ - 62 

17315 - 1 


i21§8?i26 i?iil - ®0 


17210 Z ii i?g|i- 237 

17211 - 0 JZ3SS ~ 95 

17212 - 0 JZ22? - 230 


17200 - 40 

17201 - 24 

17202 - 354. 

17203 - 5 
1720* - 4.0 
17205 - 20 

i?fg| -25* 
iZSSI ~ ^88 

17208 - *0 

17209 - 16 


17211 - 0 

17212 - 0 

17213 - 237 
1721* - 7 s' 
}721S - 10 

17216 - 125 

17217 - 167 

??Sii - 237 

17219 - 66 
1.7220 - 3 * 

17221 - 10 

17222 - lis 
J7223 - 205 
1*7224 - 111 

17225 - 66 

17226 - 35 

17227 - so 


17317 - 12 

17318 — ISS 
}7319 - 20 I 

17320 - lil 

17321 - 66 ^ 

17322 - S4 

17323 - 170 
1732* - 237 

17325 - 75 . 

17326 — IS 
1Z3S7 - lis 


17331 - 1 "'" 
'17332 - 129 

17333 - 79 

17334 ^ 33 

17335 - 0 

17336 - 0 

17337 .- 237 

17338 - 66 ^ 

17339 - 34 

17340 - 12 

‘ 1 - 125 

1734-2 - 205 
.17343 - 111 

17344 - 66 

17345 - 24 

17346 - 147 


















Gatch it If you can 

für den ZX-81(+1610 


ist ein tolles Labyrinth-Spiel, in dem 
Sie (d.h. Ihre Spielfigur) einem Geist 
Eier abjagen müssen. Dem Geist paßt 
dies allerdings gar nicht: Er versucht 
unentwegt^ Sie zu fangen und dadurch 
am Eiersammeln zu hindern. 

Eingabe-Hinweis: 

Die MC-Routine wird von links nach 
rechts gelfesen und von oben nach un¬ 
ten eingegeben; Zur Eingabe der Dezi¬ 
malwerte wird der Lader mit den Zei¬ 
lennummern 10-60 verwendet, der 


später durch das Basic-Programm über¬ 
schrieben wird. ^ 

Spielbeschreibung: 

Sie Steuern^ mit den Tasten 5-6-7-8 die 
Spielfigur"und müssen versuchen, an 
die Eier zu kommen. Dies versucht je¬ 
doch der Geist zu verhindern, indem er 
Sie einfangen will. Die Eier sind durch 
Mauern geschützt, die nur der Geist weg¬ 
räumen kann. Es gilt also, die eigene 
Spielfigur so zu steuern, daß der Geist 
hei dem Versuch,^Sie einzufangen, die 


Mauern wegräumen- muß. Pas Spiel 
hat drei Schwierigkeitsstufen, die sich 
am Anfang nach 3 und nach 7 
Punkteneinstellen. 

Der Geist hat außerdem noch die Mög^ 
lichkeit, die Eier unsichtbar zu 
machen: Sie sind jedoch nach wie vor 
auf der ursprünglichen Position 
vorhanden. 

Es empfiehlt sich, einen Moment auf 
dem Ei stehen zu bleiben. 


^iREH 290 ZEICHBH 

10 LET. T=0 _ 

35 LET 
4-0 LET P=0 
50 LET 0=16514- 
55 LET 6=16515 
60 LET E=10 
75 LET 9=11 
80 LET H=ll. 

90 LET C=3 
95 POKE 16666,0 
150. POKE 0,11 
155 POKE 6,21 ' 

160 FOR 1=16684 TD 16687 
165 POKE 1,0 
170 NEXT I 
175 POKE 16418,0 
177 IF T>=1 THEN GOTO 300 
180 PRINT RT 3,7;**RNLEITUNG ? C 
J/N) " 

185 IF INKEY$=”Ü** THEN GOTO 700 

0 

190 IF INKEY$=**N** THEN GOTO 206 
195 GOTO 185 
300'GÜSU6 5000 

1000 PRINT RT E,C;. ' 

1010 RRNO U5R 16560 

1020 LET R=PEEK 6 

1030 TF fl>C THEN LET 0=0+1 

1040 IF R<C THEN LET 0=0-1 

1050 LET F=PEEK O 

1060 IF F>E THEN LET E=E+1 * 

1070 IF F<E THEN LET E=E-1 

1080 RRNO USR 16560 

1090 PRINT RT E,C;”?" 

1100 IF F=E AND R=C THEN GOTO 20 
00 

1110 iF R=H AND F=G THEN GOTO 25 
00 

1120 GOTO 1000 

2000 FOR 1=1 TO 20 

2005 PRINT RT E,0;*'*“JflT E-1,C;" 

+**;TRB o-i;*‘+ +**;TflB G;*'*'*;RT E- 

1,0;“ “JTRB c-rij" + **;TRB 0; ** •• 

2010.NEXT I 

2015 LET T=T+1_ 

2020 LET B*=**aHl‘’ _ 

2025 IF T=2 THEN LET B$=**ai“ 
2040 OLS 

2045 PRINT RT 7,7;"EIER :“;P 
2050 LET Z=PEEK 16684+256+PEEK 1 
6685+65536+PEEK 16686 

2052 PRINT RT 9,7;"ZEIT :";Z 

2053 LET- OU=(P7Z)^M0E5/Z+P 

2054 PRINT RT 11,7;"PUNKTE;";INT 

OU ‘ 

2055 IF INKEY$=*5" THEN GOTO 2055 
2057 IF T=3 THEN GOTO 6000 

2060 GOTO 40 

2500 LET P=P+a ^ .. 

2510 PRINT RT 0,5;CHR$ tP+156);" 

B" 

2520 IF *2 > =3 THEN GOTO 3000 
2530 RRNO 

2540 LET G=INT (RND+19)+3 
2550 LET H=INT (RND+24)+5 
2560 PRINT RT G-1, H-lj,“«*"; TRB 
H-1; ; TRB H-1; 

2570 GOTO 1000 * 

3000 IF P > =7 THEN GOTO 4000 
3002 RAND 

3005 FOR 1=1 TO 25 . 

3010 LET U=INT (RND+20)+3 
3020 LET U=INT (RND+24)+5 
3030 PRINT RT U,U;**V 
3040 NEXT.I 
3050 GOTO: 2530 

4000 IF ji>7 THEN GOTO 2530 . 

4005 POKE 16666.12 8 - __ 

4010 PRINT RT 7,7; 


•;TRB c;" 



4015 FOR 1=1 TO 100 

4016 NEXT I 
4020 GOSUB 5000 

4022 POKE 0,11 

4023 POKE B,21 

4024 LET E=10 

4025 LET 0=3 

4030 LET G=ll • 

4035 LET H=ll 

4050 GOTO 1000_ - 

5000 ; LET R$='BBiHB3SgBaBSB 

5005 FOR 1=2 TO 22 

.5010 PRINT RT 1 , 0 ; •B|";R$(I TO I) 

® 

5015 NEXT I 

5020 PRINT RT 0»0-"‘" .. 


25-PRINT RT* 23.0 


5030 PRINT RT 11.21; "£" 

5035 PRINT RT 0,23; "SB" 

5040 PRINT RT 0,11;B* 

5045 PRINT RT 0,2; 

5050 PRINT RT 10.10 l^lS" : TRB 10 
; "MB";TRB 10 ; *BB" 

5055 RETURN 
6000 OLS 

6005 PRINT RT 9,10;"GRME OUER" 
6040 IF INKEYfs“" THEN GOTO 6010 
6050 GOTO 10 

7000 PRINT RT 1,1;"HRLLO ..";RT . 
3,1; "STEUERN SIE HIT DEN TASTEN: 
“;flT 6,7;"5-6-7-8";RT 9,1;“DEN £ 
UNO UERSUCHEN SIE RN OIE EIER 
0 ZU KOHHEN.";RT 12,7;"ORUECK EI 
NE TASTE" 

7010 IF INKEY*=”" THEN GOTO 7010 
7020 OLS 

7030 PRINT RT 1,1;"OIE EIER SINO 
JEDOCH DURCH . MAUERN B GESC 
HÜETZT OIE NUR OER GEIST . 7 BESEI 
TIGEN KANN,WENN MAN IHN RUF 0 

IE MAUERN LENKT." 

7040.PRINT RT 12,7;"ORUECK EINE 
TflST" 

7050 IF INKEY*="" THEN GOTO 7050 
7060 CLS 

7070 PRINT RT 3,8;"KAPIERT 7 (J/ 
N)": 

7080 IF INKEY*="J" THEN GOTO 804 

7090 IF INKEY*="N" THEN GOTO 801 
0 

8000 GOTO 7080 
8010 CLS 

8015 PRINT RT l,li"OANN FANG EIN 
FACH RN ZU SPIELEN OU WIRST SEHE 
N ES IST NIGHT SCHWER.";AT 1 

2,7; ‘mRUECK EINE TASTE" 

8017 IF INKEY*="" THEN GOTO 8017 
8020 GOTO 8065 
8040 CLS 

8050 PRINT RT 1,1;"DU. ELENDER LU 
EGNER HAST NICHTS KAPIERT.";RT 
4,l;"UIELEICHT UERSUCHST DU-ES M 
IT EINEM PROBESPIEL ?";RT 12,7 
; "ORUEdK' EINE TASTE" 

8060 IF INKEY*="" THEN GOTO 8060 
8065 CLS 

8070 PRINT ‘TIITril 

Lil I iiil IT IF YOU C 

RN" 

8072 PRINT RT 7,8;"(C)BY-RALF RE 
IFERT";RT 9,9;"5340 BRD HONNEF 1 

8075 FOR 1=1 TO 120 
.8076 NEXT I 


sipnM9e9 199^ 


HoMseoMPumt 65 















8030 CLS r 
8035 GOTO 

iSio F0R^I=16514. TO 16514.+290 

9010 PRINT 1, ^ V 

9020 INPÜT R 

9030 PRINT I 

904.0 POKE I/fl . ' 

9050 NEXT I _ ^ 



16577 

1657B 

16579 

16560 

16581 

16582 

16583 
16584. 
16565 

16586 

16587 

16588 
16588 
16560 

16591 

16592 
16563 

16594 

16595 

16596 

16597 
16590 
16599 

16609 
16601 
16602 

16603 

16604 

16605 

16606 

16607 

16608 
46609 

16610 
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17 + 4 

fiir den Sharp MZ 700 


Eine Simulation des beliebten Karten¬ 
spiels^ dü^ unter Anwendung der einge¬ 
bauten Blockgrafik funktioniert. 

Der Computer zieht 4 jfCarten, zwei für 
jeden Spieler. Während er von, seinen 
•Karten eine verdeckt hält, decto er Ihre 
^eich auf. Danach fragt er Sie, ob Sie 


weitere Karten wollen. , . 

Ziel des Spieles ist es, moschst nahe an 
21 Punkte zu gelangen. Wer 21 Punkte 
Überschreitet, verliert Bei Gleichstand 
gewinnt der Computer. Da die Tasta¬ 
turabfrage über ”G^ET$” läuft 
brauchen Sie zur Bedienung nur die 


Tasten’T und ”N”. 

. Zieht ein Spieler zwei Asse, hat er in je¬ 
dem Fall gewonnen,pbwohl die Punkt¬ 
zahl 22 beträgt Trotz einer einfachen 
Vergleichslo^k ist der Sharp ein schnel¬ 
ler und hartnäckiger Gegner. 
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190 CURSOR0,3:PRINr*#)(!*# ####■■ 

200 CURSOR0,4:PRINT:'m# ####•' 

210 CURSOR0,5sPRINT"m# ####•• 

220 IFR<I0THENGOTO260 

230 CURSOR0,I !PRINT"#0'''5Rj"#BB0B)t000B)(#|f 
240 CURSOR0,6!PRINT"#B'' ;Ri"#BBSB#H000### 
250 GOTO280 

5RS"##0",5R;"SB#B0# 

280 CURSOR0,8:PRINT''DU HAST : 

290 PRINT-BICH ‘HABE : - 

300 CURSOR0, 10.:pRiNT"#*»#" "" 

310 CURSORS, n:PRINT"#m" 

320 CURSORS, 12 :PRINT-#*!|:#" 

330 CURSORS, 13 :PRINT"#^;t:#'' 

340 IFT>9THENGOTO380 ' 

350 CURSORS,3 :PRINT«B“ JT J -##0- JT; -00#.. 

«n rnrf^®’ ' =P'^INT-B" JT 5 -ftltB" JT J -BB#" 

370 GOTO400 

380 CURSORS, 9 iPRINT"##(t#BB00'‘:T: -RBB#" 

390 CURSORS, 14 :PRiNT"#tl##0000" ;ti"BB0)f.. 

■100 CURSORS, 10sPRlNT-m#’' 

■110 CURSORS, 11 .•PRINT-m#“ 

420 CURSORS, 12 :PRINT"#m" 
430CURSOR5,13.•PRINT“#)C*#" 

440 IFU<10THENGOTO480 

450 CURSORS,9:PRINT"####0000“JUJ"BBB#" 

420 

tu PMofno^ ® SUS "«#0" SU 5 -BBSBB- 

• 90 CURSORS, I4:PRINT"B"sU5"##B";UJ"B0#BS 

520 P=T+U 

530 IFP=21THENGOTO260 
340 GOSUB1380 
550 IFL=1THENGOTO800 
560 IFO<=16THENGOTO950 

520 CURSORS,2!PRlNT"##t#" 

580 CURSORS, 3 :PRINT"#;(:;|;#« 

590 CURSORS, 4 iPRlNT-früc^c#" 

600 CURSORS, 5 SPRINT"#*)(:#" 

610 IFS>9THENGOTO650 

620 CURSORS, 1 :PRiNT"B“jS5"##0«jc...Hntt.. 

630 CURSORS, 6SPRINT-B" 5S;"##a" js^-bh«« 

640 GOTO620 

####0000.. js ...000«., 

620 ^ 

690 IFP>SSeNGOTO230°^ 

200 CURSORS,16 SPRINT" 

ONNEN S- -iPRINT-niCH HABE GEW 

.210A1=A1 + 1 

220 PORT=1TO400snEXTT5GOTO1490 ' 

230 CURSOR0, l6spR||.{1-ii 

NNEN J" , HAST GEWO ; 

240 B1=BI + 1 , ' 

250 FORT=1TO400sneXTTsgoTOI490 ' 

260 IFD=2lTHENGOTO2e0 ' 1 

220 GOTO520 i 

PTWTMcö^P^®’‘PRINT-ICH habe auch 21"-P . 1 

29 S Goy^r • ■ . .: 

800 GOSU81300 I 

810 CURSORSP, 10:PRiK7M»*j|j,,„ , • 

820 CURSORSP,11:Print-#S;.. 1 

830 CURSORSP,12 SPRINT“#**#" ! 

840 CURSORSP,13 SPRINT“#**#" ' ' . 

850 IFO3THENGOTO890 ' 

860 CURSORSP, 9 SPRINT"0" SC 1 “##H" -r • "«p».. I 

820CURSORSPil^RINT"- - >C,-BB#" 



880 GOTO910 
830 CURSORSP,9 SPRINT“####B0B0"5C;"0000" 
9^0 p^p®°’!.®'’’''''T'’^'^’".'*****.*®®®S''äC,}"0BB#“ 

920 CURSOR0,8SPRINT"DU HAST s "‘P 

930 IFP>21THENGOTO200 
940 GOTO540 

950 CURSORMg, 2 SPRINT!'#**#" 

960 CURS0RI12 ,3 SPRINT“#**#" 

920 CURS0RI12,4-:pRtNT"#**#" 

980 CURS0R112,5 SPRINT"#**#" 

990 IFS>9THENGOTO1030 
1000 CURSORH?,! !PRINT“B“5Sr*##0"sS""HR*" 
010 CURS0R112,6 sPRINT."B" JS }“## | 

1020 GOTO10S0 ’ ’ 

•PPINT“####0BB0"5s...0gB*.. 

lese S“S 

1060 6OSUB1220 * 

1070 D=D+C 

1080 CURS0RI12,2 SPRINT“#**#" 

090 CURSQIp?,3 SPRINT"#**#" 

1100 CURSQR112,4 SPRINT"#**#" 

1110 CURS0RI12,5 SPRINT"#**#« 

1120 IFe> 9THENG0T01160 
I130 CURSORMg,1JPRINT-B“SCS“##0 "sC•" 0a#" 

1160 CURS0RM2,1:PRiNT"####BB0a“sC5“fiBB#" 

1130 IFD>21THEN GOTO730 

1200 IFO<=16THENGOTO1050 

1210 GOTO620 

1220 C=INTC1 l*RNDCno+i 

1230 n2=ri2+5 

1240 IFC=11THENGOTO1260 

1250 GOTO1290 

1260 IFCO+C3>21.THENGOTO1360 
1220 GOTO1290 
1280 C=1 
1290 RETURN 

1300 C=INTC11*RNDC15J+1 
1310 SP=SP+5 
1320 IFC=11THENGOTO1340 
1330 GOTO1320 

1340 IFCP+C3>21THENG0T01368 
1350 GOTO1370 
1360 C=1 
1320 RETURN 

1380 CURSOR0, 16sprint"WILLST DU EINE KAP 
TE ODER KEINE ?" ' ^ ^ 

1390 GETI* 

1400 IFI*="J"theNGOTO1430 ^ 

1410 IFI*=“N“THENGOTO1460 

1420 GOTO1390 

1430 L=1 • 

1440 PRINT"® • 

1450 GOTO1480 ' 

1460 L=0 
1420 RRINT-ffl 

1480 RETURN 

T-p, i™' THENCURSOR0,17 sPRINT“ES STEH 
1 >B1 , s SAI 5 “ FUER rtlCH^' 

T-a, 17SPRINT-ES STEH 

T >A1., . jBl ; ‘ FUER DICH'i 

SP 

1520 GETI* 

'530 IFI$=“J"thenGOTO30 
1540 IFI$=“N"THENGOTO1560 
1550 GOTO1520 
1560 CLS 

-'S- ® “'P°CRSEHEN“ 
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Bit Senso 

für den Bit 90 


Zunächst gibt es einen Ton und das entsprechende 
Farbfeld leuchtet auf. Drücken Sie die ent¬ 
sprechende Taste! Als nächstes gibt es zwei Töne ... 
usw. bis 20 Töne. Danach beginnt eine neue Folge. 
Machen Sie einen Fehler, bricht die Folge ab und 
Ihre Punkte werden angezeigt.. 

Den vier Feldern entsprechen die Tasten ”1” bis 

“ • ■ ^ 

Drücken Sie hingegen die Taste ”5”, wird die ganze 

Folge abgespielt, Ihr Spiel gilt aber als verloren. 
WARNUNG: Das Spiel ist recht schwierig und läßt 
Sie für Stunden Ihre Umwelt vergessen! 


Zum Programm: 

Das ”Spielfeld” wird nur einmal auf den Bildschirm 
gebracht (Zeilen 90bis 180). B$ enthält die Töne und 
die Grundfarben der vier Flächen, während Bl$ die 
erleuchteten Farben der vier Flächen enthält (Zeile 
40). Das Array A(25) beinhaltet die Tonfolge (Zeile 
30 und Zeilen 190 bis 210). Das Wesentliche ge¬ 
schieht im Unterprogramm ab Zeile 520: Zunächst 
werden die Farbwerte für die dunkle und die erleuch¬ 
tete Fläche ausgerechnet (DB und DH), dann wird in 
Zeile 540 die entsprechende Fläche ”artgeschaltet”. 
In den darauffolgenden Zeilen, wird der dazu pas¬ 
sende Ton errechnet und zur Ausführung gebracht, 
während Zeile 590 die Fläche wieder ”ausschal- 
tet”. 

Viel Spaß beim Spiel! 


rem senso - •’ö 

. S.cäsä": 'Lu. 


\ 


,0 OHRCOU<5.ie.0.:C.tL CHRCm-.7,9. 

l-CALU CHRCOUW.l^S,®) 

RANDOMIZE 

llt CALL SCREENU) s E N S 0“«?«? 

110 PRINT “ ■ ® * • 

s K“-” - 

isl PRINt"^“ a 

\% K“" pppppppp 

lao NEX.T ® «« 

AUÄC RNO< 

. 21Ö NEXT ^ 

22© Y*© 

23© C»0 

1% PORS-UOY 
la® BOSUS 520 

iro ■fp^'^SSOTO .30 

31© S*© . , 

C>53e0T0 330 

X ip CO 5360T0 380 

36© V*20 

ifS-ASO A<S>e°™ 

1 ^SoloTO 320 . 

\ ' ° nE» -das lEAB EIOHL NICHT.-"'^ 

s Ä vS?-p»«’*'-’- 

; vi sucSiÄ'.! 

CHRGOttA<S»il,P®.®®‘ 

I 4^®- .SAvf"BIT-SENSO”.GPTP^^ 
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Sie sind in keinem USER-CLUB? ‘ 
Dann fordern Sie unser Info an. 

SpectniiR USER-CLUB Wappertal 

Rolf Knorre, 

Postfach 200102,5600 Wuppertal 2 


O O O O O TI-99/4A O O O O O 
Editor Assembler 198,-DM 

Editor Ass Handbuch Deutsch 98.- DM 
Assembler Kurs Deutsch ^8,- DM 
Porth Compiler Deutsch 120.- DM 
Liste anfordern 1.10 DM, Wickert, 
1000 Berlin 65. Müllerstr. 59A 
oooooooooooooo 


TI-99/4A: Super-SD-Spleie! Mathel 
Datei! Actidngames! .Taraatila 
... und, und, und/ab 1,- DM/Info 1,- DM. 
C. Wurzer, Grüntenweg 14,8500 Nürnberg 


TI-99/4A Ext: The Wizard • • • 
Super-Grafikadventure, da zeigt 
der TI, was in ihm steckt Infos 
(Freiumschlag) bei Micbael Kenn, 
Marienhöhe 11, 6951 Billigheim 


■ ■ ■ ■ VC-20 Software ■ ■ ■ ■ 

ab 0,50 DM (u.a. Skrambie, Invaders, 
Donkey Kong) Bel Jeitor BesteliHNg 
4 BraUspragreniiia 111 C. Bartsch, 
KielerstraBe 130, 2300 Kronshagen 


★★★★★★★★★★★★★★. 

Ordnen Sie Ihre Programme! 

BATENKASSEnER 

Für jedes Programm eine Kassette. 
Kein langes Suchen mehr. Schnell 
Jeweils nach Länge der Programme 
111 C-10^1,50pir/Sl6k. 111 

111 6^20^ 1,60 por/Stck. 111 

111 C^SO^IJOper/Stciu 111 

+ DM 3,50 Porto. Ab DM 30 frei! 
Besonders 'günstige Mengenrabatte 
ab DM 75-5%, DM 100-8%, DM 150-12% 
DM 200-15%; Rechnung oder V-Scheck 
Ausland: Nur Vorkasse 4- plus 4,50, 
Jetzt gleich bestellen. Tag + Nacht 
Anrufbeantworter V040/44/ 1991, 
A Jensen, Fahrenkfön 49,2 Hamburg 71 
★★★★★★★★★★★★★★ 


Anwenderprogramme fürSpectreai. 
Gratisinfo von OMEGA-SOFT, 
Postfach 72,8473 Pfreimd 


TI-99/4A: Game of Life + Beschr. I 
TI/Ex-Basic:10.-DM. Schein an: 

0. Siffrin, Am Ring 70,6683 Elversberg 


CBM 64: Große Auswahl an super¬ 
günstigen Spitzenprögrammen 
(aktuelle Spiele, z.B. Zaxxon). 
Liste anfördern bei: UK+UW, 
Postfach 1231,4803 Steinhagen 


Apple-Fremdsl Fragt nach Hurricane 
dem Super-Geldspielgerät aus 
der Spielhalle und E.T.-dem Alles- 
Lerner (24 Lernstufen). M. Tamm, 
Solmsstraße 43,1000 Berlin 61 


6-64-Superprogramme abzugeben oder 
zu tauschen. Gratisliste bei: 
Postlagernd 058642B.7900 Ulm/Do. 


ACHTUNB: TI-99/4A + Mliri Mtmory 

Editor/Assembier/Disassembier zu 
verkaufen für nur 30,- DM in 
Scheinen bei T. Mieike, 
Falkenkamp 17b. 2000 Norderstedt 


Wir verkaufen Sp[t 2 :enprogramme 
für den C-64. Liste gegen -,80'^DM 
Rückporto anfordern bei: 

Klaus Fassbender, Graf-Haeseler-Str. 104, 
4050 Mönchengladbach 1 oder 
womi/Mim 


ComputarCa^setteii, 10er Pack 
mit allem Zubehör C10 DM 15,- 
120 Cmetten-AiifklebBr auf 
Lochstr, 6 DM, A4 Druckb. 7 DM 
Cbristowwla CnbM, Postfach 
3584 Zwesten, Tel.*05626/281 
Vorkasse + 3 DM Porto d. NN 


■ ■ Canaoilore 646e«Modora 64H ■ 

■ iririrnmt^iririr ■ 

■ Das Programm für Lehrer und ■ 

■ Schüler. Sie .können (Ihre) Zen- ■ 

■ suren errechnen. Klassenspie- ■ 

■ gel erstellen, usw. - Ton, alles ■ 

Hl menügesteuert!!! ■ 

■ Einfach 20.- DM (30 Disk) in den ■ 
Hl Umschlag legen. Bei: P. Schulz ■ 

■ Eichendorfaliee 6, 3352 Einbeck ■ 


• • • 0 71-99/44 Ext« 0 0 0 0 

Achtung nur für Erwachsene. Bitte 
Alter angeben. Top Sound - Top Grafik 
Dieses Spiel wird Sie in Stimmung 
halten, Preishit incl. Cass. Porto und 
Info-Programm. Nur 10,- DM ln Umschi, 
an T. Karbach, Remschelder Straße 18, 
5650 Solingen 1 


★ PrQfisoftware für den 6BM-64 ★ 

★ Text & Adreva D/C 28,- ★ 

★ Lager & Faktura D/C 58,- ★ 

★ Finanzbuchhaltung D/C 78,- ★ 

★ Datenverarbeitung D/C 78,- ★ 

★ Spiele für Atari und CBM-64 ★ 

★ Silicon Chesslll .D/C 39.- ★ 

★ Triathion,-Summer D/C 29,-★ 

★ Triathlon, Winter D/C 29,-★ 

Info: Frank Uetz, 3005 Hemmingen 3 


TI-99/4A: Tl-Baslc und Ex-Basic- 
Programme zu verkaufen. Info gegen 
Rückumschlag an B. Knedel, 
Tulpengasse 16,3171 Weyhausen, 

W05H9/711i7 


★ ★ fC-20 Sift- axd Hardware ★ ★ 

Georg Villinger, 

Strittberg 40,7821 Höchenschwand 


Uatarricht: Lern, Lehr- und Obungspro- 
gramme für C 64 und Tl-Mathematik, 
Musik, Deutsch, Geographie, Biologie." 
Elektronik. Liste anfordern: PAEDCO, 
Postfach 2021H, 4057 Brüggen 2 


Hallo Ti-Baaitzarl 

Nicht verzweifeln! Brandneue Software Im 
PAEDCO-Software Club. Jeden Monat neu! 
Infocassette mit Musik, Datenverarbeitung, 
Spritegenerator und 3 Spiele zum Kennen- 
lernpreis von 10,- DM (Schein Im Brief oder 
Ver.-Scheck) PAEDCO. Postfach 2021H, 
• 4057 Brüggen 2 


■ ■ CoMOdare 64 CoMWOdore 64 ■ ■ 

■ TANK WAR C6NSTRU6TI0N SH ■ 

Ein Spiel , bei dem Sie selbst' 
kreativ werden können! Kreieren 
Sie Ihre eigenen Spielfelder!!!: 

Kala Mlstl Kalaa Raabkaplal 
40KB reine Maschinensprache; Su¬ 
per hochauflösende _ Farbgraphik; 
3-D Effekt;' Super = Sound; 
8 Natlohalhymilen mit den dazu¬ 
gehörigen Flaggen in Farbgraphik; 
Sie haben • die Möglichkeit Tur¬ 
niere mit bis zu 8 Spielern äus- 
zutragen; Laden und abspeichern 
von eigenen Bildern; Bedienüngs- 
freundlich und durch' Menüsteuerurig; 
Und und und..! Das alles für 
NUR 19r BM auf Kassette oder 40.- DM 
auf Disk. inkl. daatschar AaM- 
taai« Sie können auch per Nach¬ 
nahme (+ 5,-DM) bestellen. Bestell, 
an MT Wisniewski. Wilhelmstr. 33. 
7505 Ettlingen. Einfach 2 mal 
Übernachten und das Programm 

■ ■ liegt in Ihrem Briefkasten ■ ■ 


fC-20 Verkaufe meine Spiele. Baue auch^ 
16K-Erwelteruhg zum Schalten um. 
Liste bei: Steinhorst, Wengestraße 7 
4600 Ddrtmur)d 18 


6-94 Pragraaiaia (> 159 Stck.). Zaxxon, 
Kummer Games, Dallas. Quest, Hobbit 
Tausch/Verkauf, Liste gegen DM 1,30, 
Rückporto oder eigene Tauschliste, 
Stefan Gundel, Efeustraße 11 
8508 Wendelstein 2 


Naal Naal 

Computer-Trainingsprpgramme zur Vorbe- 
. reitung auf die gängigen Einstellungstests 
der Industria (Auch für Lehrsteltensuchende 
geeignet!) Lieferbar für TI-EKT und C 64. 
Komplettpreis (10 Programme) 75,- DM. 
PAEDCO, Postfach 2021H. 4057 Brüggen 2 


ACNTUN6 9C-20/6411 
Wir haben alias fir tbrea Cawpatarl Übar 
900 Rreiramaia aas allaa Bereichen scbaa 
ab..0,50 ..1.-..1,90..BM1 (Kala Sehaadil) 
Kompietta PregraaiBipabata scbaa ab 3,- 
BM..6,-BM»6,-DM und und und..!(Spitze) 
Z.B. Pra|ra 00 |aaarstana..ttatisllk und 
Aawaa da rprearetHaa, AreadaspWe, Advaa- 
tares.;aad..aad..aad..l Fordern Sie haata 
nach unseren iHastaa Katalafmit vielen 
Ups aad Tricks, lafatafala aad Ubarslcbtaa 
aal (Bralisll) Es lahatsichll Werbekassette 
beachten!!) Aus unserem Angebot! PRO. 
TEXT 64 die wohl einzigste Textverar¬ 
beitung in Maschlaaaspracba. Raadaas- 
glalch aad aad aad aatar 10,- BMll PRO. 
CALO die Taballaacalkalatiaa aiR PraR- 
lalstaaa..Bacbbaltaa|..lJ|sriiaNaB|.--..DIs- 
kattaahllfaa..Assaaiblarpakata..alsklra- 
Hscba WlrtariMch..SUPER jmElErFordern 
Sie heute noch unseren Katalog aitt Wr- 
bakassattaaa. 

ACNTUH6TI-99/4Alt 

Ein aaifaairaichar Katalai mit vielen Tips, • 
Tricks aad Prsfraaiaibaschreibaaiaa wa^ 
tat aäch äaf Slai Und natürlich auch hier: 
SUPERPREISEll (Rterkaka^c baack- 
taöll) TESTEN SIE UNSER ANBEBOTund die 
Qualität unserer Software! Für aar 2,- BM la 
Briahaarfcaa (oder Münze) senden wir 
Ihnen unseren rieuesten Katalog («11 vlalaa 
Tips aäd Tricks..lafatafala..) und unsere 
Wariiakassalts raadwall «H arstklassfcaa 
l^^r^t^pnaaaÄCBi, ^tURtlas, 

Areada, Advaatare aad aad aadll Schreiben 
Sie heute noch an S + SOFT. J.Schiüter: 
Schöttelkamp 23a. 4620 Castrop Rauxel 9. 

(Eslabatsick) 


Bien AM haudwars 


Ti-99/4A + X-Basie + Schachmodul -1- 
1 Joystick^ Adapter+2-Programm-Samml. 
(Chip+Pahlbg.) +Rec.Kabel-F*50 Pgm’s. 
VB 600,- DM. 90991/979193, Nieser 


Neuwertiger FARBMONITOR BCK96318 
mit 16” Bildröhre .und Gehäuse 
Ansteuerung mit RGB-Signal: 600,- DM, 
Franz Schiegl, Habererweg 29, 

8015 Markt Schwaben 


Alles für Co««adcra, E Dönges. 
Vor der Steinert 7, 5241 Steineroth 


WC-20 H- Datas. + Joystick + Schrank, 
Viel Software 6 Mon.alt, FP 550,- DM, 
Mike Lundin, Hauptstraße 80, 

' 5592 Klotten 


2X-61 -flBK + Software-Cassetten 
VHB150,-DM, 
909792/9735 ab 15.00 Uhr 


★ ★ FLOPPT 1541 6XS6NNELLER ★ ★ 

durch Parallelbus-Interface mit 
Software nur DM 179,- Info DM 1*50, 

B. Akesson, Postfach 802,4040 Neuss 


Verkaufe TI-99/4A + Rec. Kabel + Buch 
mit Tips + 6 Spielmodule + Joystick + 
Kassettenspiele. 9 0011/0009700 
ab 5, Aug. '84 069/6665766 VB 500.-DM 


0 Spectra« 0 Spactre« 0 Spactra« 0 

Erw. a. 48K 89,- DM, 80K189,- DM prog 
Joystick, interf. 110,- DM. Joyst Interf. 
53,- DM, dICKeyboard 188,- DM. Füller Key¬ 
bord 238,- DM. Light Pen 84,- DM, Floppy 
System lieferbar, ,lnfo anfordern 
Meyer, Rahserstraße 58,4060 .Viersen 1 
902102/2990% Händleranfr. erwünscht 


C 64 Eprom-Programmierer, Info gratis! 

A. Medinger Electronic, 
Konrad-Adenauer-Platz 8a. 5300 Bonn 3 


TcMaa Made« für 904 als Akustikkoppler 
Betriebsbereite Platine DM 145,- Bausatz nur 
DM 75,-, I. Drüst Landwehrstraße 5, 

6100 Darmstadt 


Akustikkoppler, Schnittstelle 
und Telefonmodem für 6 64 
Anfrage oder Prospekte bei 
N. Flesch, Üppspringerstraße 14 
4650 Gelsenkirchen 
90209/999007 


W-20 zu verk. + 30 Spiele +2 Basichandb. 

+1 ßasickassiette, aar 270,-» bei 
M. Trinkhaus. 9000/005991, Hamburg 


★★★★★★★★★★★★ 

Soft- und Hardware für 16-20-1-64 


8K Speichererw. m. Sch. 100,-DM 

16K Speichererw. m. Sch.. 165,-DM 

64K Speichererw. m. Sch. 270,-DM 

Programmierhilfemodul 80,-DM 

Maschinensprachmodu! 80,-DM 

Graphiemodul ohne 3K 80,-DM 

Modulbox 5Stckpl. 20/64 160.-DM 

Modulbox 2Stckpl. 20/64 65,-OM 

40/80 Zeichenkarte 20 250.-DM 

80 Zeichenkarte 64 295,-DM 

Quicksave 20/64 70.-DM 

Doppellauf Floppy aA. 

Monitor Bernsteinf. a.A. 

Typenradschreibmaschine ' aA. 


Prograrnm-lnfo anfordern bei 
N. Flesch, üppspringerstraße 14 
4650Gelsenkirchen 

90209/399007 

Bitte System angeben 20 oder 64 

★★★★★★★★★★★★ 


Verkaufe 2 Monate alten TI09/4A 
+Cassettenk., 907109/399^ 300,- DM 
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KtsiNANamm 


fC-M Achtung, für Floppy 1541. '' 
2,5 mal schneller Prg. laden, für 
Datasette lOmal schneller Prg. 
laden und saven, jeweils auf Eprom- 
platlne, jeweils nur^DM 59,-, 
Bestellungen an: Z Zaporowskl, 
Krambergstraße 30,5800 Hagen 1 


Verk. TI-99/4A + Ext Basic + Cass.-Rec. 
+ Kabel + Mod. Number-Magic + Data- 
Becker-Buch + Joyst Festpreis nur 
DM 490,-, V02t22/43f40 


Verkaufe fC-20 + 27/32 KB mit Interface,, 
t Modul und ca. 30 Spiele, VB 600,- DM, 

1t06036/1S57 

C-64,4 Mon. + Garantie + Lit + 
400 Topprogr^ 850,- DM, nm7t/$3538 


O O O O O TI-99/4A O O O O O 
Editor Assembler ' 198,-DM 

Editor Ass Handbuch Deutsch 98,-DM 

Assembler Kurs Deutsch 98,-DM 

Forth Compiler Deutsch 120,-DM 

Liste änfordern 1,10 DM, Wickert, 
1000 Berlin 65, Müllerstr. 59A 
ooooooooooooo 


EUKTRONIK BAUTEILELISTE mK SUPER 
PREISEN II Gegen -80 DM Rückporto 
Comeiara 6 64 Tellzpr. mon. 77,- DM 
CaaiBMidara Exa«lv64Tel[zpr. moa 249,-DM 
Näheres bei: Elektronik Versand, 
Haselgraben 17,7917 Vöhringen 


ZX*S1 + 16K + Aufsatztastatur H- Bücher 
NP: DM 350,-, VB: DM 150,- 

W032t/55S925 


Appla Kompat Ab 1198,- DMi Laufw. 
Siemens 628,- DM, alles für Qric 
Disketten 10 Stck. ab 50,- DM 
CaianaUan Software. W0274712999 


ZX-Spactran (4 Mon. alt) 350,- DM 
»■81 (7 Mon. alt) 50,-DM 

V02ff/575101 (nach 15 Uhr) 

^ Umstiadalialben TI-99/4A + Rek. + 
Kabel + Joyst.+ ExtB. + Schach + 
Datenv.+5 Bücher +130 Progr (Kass.)!! !• 
Alles orig. Verp. + 5 Mon. Garantie, 
VB 1050,- DM, 902174/62850 


SUeH€ SOFTWARE 


Wa ara curranUy laaUng for original 
debugged games for äny machlne, to 
market In the U.K. If you have any pro- 
grams, that fit those criterla, call üs on 
010 44 532 450879, orwrlte, for 
■ furtherdetalls, DARKSTAR 
32; Sovereign Street, 

Leeds LSI, 4BJ, England 


SUCHF HARDWARE 


Saasatjaaall I Wegen Hoppyaufgabe ^- 

TI-99/4A + X-Basic + R. Kabel 4* ★ ★ Suche defekte Computer aller 

Software + Bücher DIR 359,- Fabrikate. Zahle je nach Fabrikat 

Kala Draakfaiilar I bis DM 100,-. Auch mit Zubehör, 

ad. Donkey Kong Mod. 40,-, Munch- Angebote schriftlich an 

Man Mod. 30,-. Alles zusammen Alfred Meister, Marktstraße 40, 

DM 409,- 9089/563275 . 6090 Rüsselshelm ★ ★ 


TAUSCH 


Super Software für den TI-99/4A 
Liste gratis bei J. Brönnimann, 
Ausmattstraße 5, CH-4132 Muttenz/Bl. 


Tausche ITT Raealvar 5501 Hi-Fi 
2x45 Watt mit Cass.Tell gegen Hardware 
für TI-99/4A (Perl-Box, Mini Memory, 
Spr. Synt, 32K-RAM, Drucker u.ä.) 
Peter Mertinelt, 906588/466 

Suche ZX-Spactrain + Zubehör oder 
anderen Computer, sowie ein guterhaltenes 
Mikroskop Im Tausch gegen C-B4 Progr, 
u, Bücher (evtl. WertausgIJ. Angebote bitte- 
unter Chiffre Nr. HC060984. 


KOHTAKTE 


e.C.C.-64(t4’trCliib) 

Die große Gemeinschaft 
Information gegen Rückporto bei: 
C. C. C. - 64, Bramfelderstr. 90, 
2000 Hamburg 60 


VC-20 Oslerralcli VC-20 
Bratis Info bei P. Martin, 
Quellenstr. 74/20,1100 Wien 


Suche Kontakte zu weiblichen Comp. 
Inter., wenn möglich in näherer Umgebung. 
Zuschriften an Guido Schleputz, 
Pestalozzistraße 1,5160 Düren. 

Ihr solltet zwischen 16-20 J. sein. 


¥EnSCIIKMMES 


icicic Sucha Spialldaan IWiriric 

★ Egal ob Zeichnungen, Text o.ä. 1 ★ 

★ Zahle 20,- DM für jede brauchbare ★ 

. Idee.! Bitte melden bei: ★. 

★ ★ Kemal Ezcan, Frankenstr. 24 ★ ★ 
6457 Maintal 4, 906181/87539 


Basie-KuRyC-20 + VC-84 

. Kompakt-Kurs I .+ II Teil mit Kassette 
zu verkaufen. Information; Rolf Freitag, 
Ggelsenaustraße 87,6400 Dortmund 1, 
»P23//«5«4 oder gegen 
80 Pfennig Rückporto 


Dlskattaabax, fOr ca. 70 DIskattan 

Maße 30/16/16, m. Schloß 44,50 DM 
0 . Schloß 39,50 zzgl. Nachm o. Scheck 
Im Voraus, H. J. Schnaars, Am Bahnhof 3, 
4505 Bad Iburg, Händler gesucht 


Grafiktablett für TI-99/C-84/Afari 
Extandad Baste/Mlni-Mamory für TI 

alles je 295,- (Neu!!) H. Rafeiner, 
Lokst Steindamm 69a, 2000 Hamburg 54 


HÜBSCHE JUNGE DAMEN aus ■M 
nah u. fern suchen Briefwechsel K X 
Freizeitgestaltung, Urlaub, Hei- 
rat, etc. Fotoprospakt kostenlos' 

D. Rothe, 1 Berlia Postfach 270/U 


Appia Canp. 48K 908.-, Floppy 5,25” 
Sllmeline 580.-, Controler 165.-, 
Monitore 20 MHz 12” Gelb 398.- 
, INFO kostenlos. Nolte-Bürotechnik. 
2000 Hamburg 61, Stavenhagenstraße 3, 
9040/588838-^^^ + Nacht 


Auftrag für Gelegenheitsanzeigen in Homecomputer 

An Homecomputer 

Foldaer StraBe 6 

Postfach 629 

3440 Eschwege 

Namd und Adresse 




Ahn .-Nr ' 





Unter der Rubrik .Kleinanzei¬ 
gen" veröffentlicherf wir Ge¬ 
legenheitsanzeigen für Ver- 
kaufsangeböfe, Kauf- und 
Tauschgesuche, Kontaktauf- 

Unterschrift Ich zahle sofort nach Rechnungserhatt. 

Ich wunsche folgenden Text zu veröffentlichen: 

Datum 

1 1 1 1 1 1 1 

1 1 1 II 

1 1 1 i i t 1 1 i 1 1 1 1 1 1 i L 1 1 1 1 



nähme bzw. Erfahrungsaus- 

1 I 1 1 t 1 I I 1 1 11 I I 1 


1 1 1 1 1 

laiiscn usw. 

Preise für „Kleinanzeigen": 
Private Qelegenheitsanzeige 



1 1 1 1 1 

L-LJ I I 1 1 1 1 1 1 1 ri 1 1 1 1 1 1 1 


1 1 1 1 1 

je Druckzeile 5,— DM inkl. 

• MwSt. Chiffregebühr je Anzei¬ 
ge 10,- DM. 



1 1 1 1 1 


1 1 1 1 1 1 1 


Gewerbliche Gelegenheitsanzeige 
je Druckzeile 11 ,- DM inkl. MwSt. 
(dürfen nicht unter Chiffre erschei¬ 
nen). 

1.11 1 1 1 1 1 M I 1 1 1 1 1 1 1 1 M 




1 1 i 1 1 1 1 




1 1 1 1 1 

suche □ Software ' suche □ Hardware 

biete an □ ^ftware biete an □ Hardware 

Zutreffendes ankreuzen 

□ Tausch □ Versch. 

□ Kontakte □ Chiffre 
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Centronics-Interface für 
CBM 64 und VC-20. 

Jetzt auch mit 8KByte Pufferspeicher 


Ein neues Interface der 
Firma Wiesemann erlaubt 
den Anschluß von Druckern 
mit Centronics-kompatibler 
Parallelschnittstelle än die 
Commodore-Computer VC-20 
und CBM 64. 

Da der Anschluß genauso 
wie bei den Original-Druk- 
kern über den seriellen Bus 
des CBM-Computers erfolgt, 


wird kein Treiberprogramm 
benötigt, der User-Port bleibt 
frei, und es wird, kein 
Speicherplatz belegt 
Das Interface eignet sich 
zum Ausdrucken von Tes¬ 
ten, PrpgrammHstings usw. 
und erlaubt alle Funktionen 
des angeschlossenen Druk- 
. kers zu nutzen. Der Aus¬ 
druck der speziellen Com- 




modore-Sonderzeichen ist 
nicht mö^Ch. 

Die Stromversorgung erfolgt 
entweder vom angeschlosse¬ 
nen Drucker (Pin 18 der 
Centronics-Schnittstelle lie¬ 
fert meist 5V), alternativ 
kann das Interface mit einge- 
nem Netzteil geliefert wer¬ 
den. . 

Das Interface Typ 92008 (8K- 




Byte Pufferspeicher) ist für 
298,- DM incl. MwSt im 
Handel - das gleiche Gerät 
ohne Pufferspeicher (Typ 
92000) ist far 248,- DM incL 
MwSt erhältlich. 

Alle Geräte v^erden komplett 
mit allen notwendigen Ka¬ 
beln und Steckern sowie ei¬ 
ner ausführlichen Anleitung 
geliefert 


TOP - gilt die Wette? 

Sinclair-Generalimporteur Schumpich aktiviert 
sein Händlerpotential 


’Wetten, daß Sie es nicht 
schaffen, täglich 1 ZX- 
Spectrum zu verkaufen?”, 
fordert derzeit die Jürgen 
Schumpich GmbH aus Otto- 
%mnn bei München ihr bun- 
desdeutsches Händlemetz 
heraus. 

In der Tat eine Aktion, die 
schon vom Ansatz her unge¬ 
wöhnlich ist: könnte sie 
doch als ein Zweifel des Ver¬ 
triebsbeauftragten an dem 
von ihm betreuten Produkt 
gedeutet werden. 

Doch die deutsche Sinölair- 
Vertretung ist durchaus zu¬ 
versichtlich, die Wette mit 
Glanz 'und Gloria zu - 
verlieren. 

Wer sich auf den originellen 
' Handel einläßt, muß sich der 
Aufgabe stellen, an den Ver-, 
kaufstägen * des zweiten 
Halbjahres 1984 insgesamt' 
144 Spectrum-Gerätean den 
Kunden zu bringen. Dafür 
winkt in Begleitung von 


Sinclair ein erlebnisreiches 
Wochende in der britischen 
Hauptstadt 

Wer als Fachhändler nun 
doch nicht so großes Ver¬ 
trauen in die eigenen Fähig¬ 
keiten als Verkäufer besitzt, 
den .tröstet Jürgen Schum¬ 
pich mit der Versicherung, 
"nicht einmal in Wimbledon 
geh(e) es so sportlich <zu wie 
bei der Schumpich'-Händler- 
Wette!” 

Wenn Sie also beispielsweise 
ZX-81-User sind und sich 
entschlossen haben, auf den 
Spectrum umzusteigen, dann 
geben Sie Ihrem Händler 
ruhig mal durch einen Rip¬ 
penstoß oder ein deutliches 
Augenzwinkern zu ver¬ 
stehen, daß auch Sie g6geh. 
^ein Sightseeing in London 
nichts .einzüwenden haben: 
Vielleicht nimmt er Sie mit, 
zumal wenn er schön 143 
Aufträge verbuchen konnte... 


Pufferspeicher für deji 
Epsoh-Drucker 


Die Pufferspeicher der Serie 
223apc/EP besitzen einen 
Centronics- kompatiblen 
Eingang und können in 
Epson-Drucker der Serie 
MX, RX und FX eingebaut 
werden.. i 

Der Pufferspeicher erlaubt 
dem Computer, Drückdaten 
mit hoher Geschwindigkeit 
ohne Rücksicht auf den 
langsamen Drucker auszu¬ 
geben - der schnelle Com- 
.puter muß also.nicht, mehr 
auf den langsamen Drucker 
warten. • 

In der Praxis er^bt sich; da¬ 
durch.für den Benutzer ein 
Zeitgewiiui', von teilweise 
mehr als ^%. ' 

Da es sich bei'den Puffer¬ 
speichern um. eine 'feine 
Hardware-Erweiterung han¬ 
delt; die keinerlei Einfluß auf 
die Drubkdaten nimmt; 
'treten keine Probleme mit 
vorhandener Software im 








Computer auf - der'Com¬ 
puter “sieht” lediglich einen 
besonders schnellen Druk- 
ker. 

Die Pufferspeicher können. 
mit Kapazitäten von 32, 64, 
96 oder. 128 KByte geliefert 
werden. Durch die Kon¬ 
zeption als Einbauplatinen 
sind die Pufferspeicher be¬ 
sonders preiswert (575,70 
DM bis 986,10 DM incl. 
MwSt je nach Kapazität). 


Der legendäre Micro-Speech jetzt auch für den C-64: 


Currah Computer Compo- 
nents Ltd. bringt im August 
1984 seinen ”Speech-64” auf 
den deutschen Markt, der im 
wesentlichen leistungsgleich, 
mit dem legendären Spec- 
trum-Sprachsyntesizer ”Nficro 


Speech” ist Eine einzigartige 
Druck-Sprach-Ausgabesteue- 
rung, zwei verschiedene 
Stimmlagen mit unter¬ 
schiedlicher Intonation; bald 
schon verfügbare Spezial- 
Software, voll kompatibel 


mit den übrigen iCurrah- 
Produkten - das sind die 
Vorteile, 4ie der Speech-64 
bieten soll; Leider konnten 
wir das Gerät -noch nicht te¬ 
sten,'mußten uns also auf die 
uns zugegangene Presse- 


Information beziehen. 
Cürrah sagte uns jedoch 
aucheinTestgerätzu, das wir 
Ihnen in der nächsten Aus¬ 
gabe vorstellen werden. 
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U »'* durch Tvoenradwechsel. 


Die elektronische Typen- 
radschreibmaschine Brother 
CE-50 mit. speziellem bi¬ 
direktionalem Interface für, 
Apple n/IIe bietet die Firma • 
interkom electronic in Isern¬ 
hagen für DM 129^,- incl. 
MwSt an. ■ 

Durch die Entwicklung maß¬ 
geschneiderter Hard- und 
Software für das Interface 
konnten Mögilichkeiten ge¬ 
schaffen werden, die sonst 
nur Systeme deutlich höhe¬ 
rer Preisklassen" aufzeigen. 
So werden eine Vielzahl von 
zum Teil zusätzlicher Son¬ 
derfunktionen erreicht, zum 
Beispiel: 

- Automatisches Unterstrei¬ 
chen, 

- programmierbare Zeilen- 
und Zeicher^abstände, 

- Iiidizierung von Expo- 
nentiation, 

- exakte Repositionierung 


durch Typenradwechsel, 

- Vorwärts- und Rückwärte^ 
transport des Papienn^H 


Durch die Möglichk^^^: 
bidirektionalen bI^^» 
wird die Typenradsc^^B 
maschine nicht nun 
K9rrespondenzdrucker,'^H 
dem auch zur EingablH 
Statur für den Rechner. W 
Das System unterstützt an 
gängigen Textverarbeitungsl 
Programme, die auf Apple' 
oder Apple-kompatiblen 
Rechnern laufen, außerdem 
CP/M, Pascal, Fortran und 
Basic. , 

Selbstverständlich ist der 
normale Betrieb als Schreib¬ 
maschine weiterhin mög- 
Hch. 

Das komplette System wird 
anschlußfbrtig geliefert Die 
Software befindet sich im 
EPROM. 


















Bereits heute sind die Aus¬ 
wirkungen der Mikroelektro¬ 
nik, in vielen Bereichen der 
Wirtschaft bemerkbar. Eine 
kontinuierliche Ausbreitung 
dieser ”Schlüsseltechnologie 
der 80er und 90 er Jahre” wird 
mehr und mehr zu einer 
Neuorientierung der Wirt¬ 
schaftsstruktur führen. 

Mit dem speziellen Themen¬ 
kreis ''Mikroelektronik und 
Strukturwandel” befaßt sich 
die internationale Fachta¬ 
gung "Mikroelektronik für 
den Menschen”, die in der 
Zeit vom 11. bis 13. Septem¬ 
ber 1984,an der Johannes Ke¬ 
pler Universität Linz' ab¬ 
gehalten wird. 

Als einer der Referenten wird 


Prof. Dr. Johann Löhn, Re¬ 
gierungsbeauftragter für 
Technologietransfer von den 
Hochschulen in die mittel- 
ständische Industrie in 
Baden-Württemberg die ge¬ 
wonnenen Erfahrungen aüf- 
zeigen. Ziel der Tagung ist es 
nicht, die Problemstellung 
theoretisch abzuhandeln. 
Vielmehr sollen praktische 
Ergebnisse aufgezeigt und 
mögliche Wege vorgestellt 
werden, 'wobei im Zentrum, 
die Nutzbarmachung der 
neuen Technologie für den 
Menschen steht 
Ordinarius Univ.-Prof. Dr. 
Gerhart Bruckmann, Dekan 
der sozial- und wirtschafts¬ 
wissenschaftlichen Fakultät 


der Universität Wien, wird 
das- Ergebnis einer an der 
österreichischen Akademie 
der Wissenschaften durchge¬ 
führten Studie präsentieren. 
Darin wird'festgestelltdaß in 
Abhängigkeit davon, wie 
zielbewußt die durch die Mi¬ 
kroelektronik angebotenen 
Chancen wahrgenommen 
werden oder nicht sich in¬ 
nerhalb von wenigen Jahren 
ein Unterschied von 300.000. 
Arbeitsplätzen ergibt Dr. 
Bruekmann: "Richtig ge¬ 
stellt muß die Frage daher 
nicht lauten, wie sich die Mi¬ 
kroelektronik auf unsere 
Wirtsphaftsstruktur aus¬ 
wirken wird, sondern wie sie 
sich auswirken kann be¬ 


ziehungsweise soll.” 

Die breite Streuung der Vor- 
• tragenden - so haben Wis¬ 
senschaftler, Unternehmer, 
Sprecher der Interessensver¬ 
tretungen und auch Politiker 
aus dem In- und Ausland ihr 
Kommen zugesagt - lassen 
eine interessante und anre¬ 
gende Diskussion erwarten. 
Die wissenschaftliche Lei¬ 
tung der Tagung, die in das 
Programm der ARS 
ELECTRONICA 84 einge¬ 
bunden ist obliegt dem For¬ 
schungsinstitut für Mikro¬ 
prozessortechnik (Flh^ der 
Johannes Kepler Universi¬ 
tät Linz. 
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Inmac’s Drucker-Basis mit 
Papierfach und Auffang¬ 
schale macht Schluß mit 
dem Papierdurcheinander 
rund um den Druckertisch. 
Die Stellfläche der Drucker- 
Basis bietet allen gängigen 
Microcomputer-Druckem 
ausreichend Platz. Im Pa¬ 
pierfach darunter lassen sich 
rund 1000 Blatt Endlospa¬ 


pier mühelos unterbringen. 
Die seperate Auffangschale 
komplettiert dieses System - 
Printouts werden hier sorg¬ 
fältig gefaltet abgelegt. 
Drucker-Basis und Auffang¬ 
schale sind aus strapazier¬ 
fähigem, fünf Millimeter 
dickem Acryl hergestellt, das 
Optik und Belastbarkeit 
gleichermaßen Rechnung 


trägt Zwei kräftige Stützen in 
der Drucker-Basis ermög¬ 
lichen selbst schweren Druk- 
kern einen' sicheren Stand. 
Durch die rutschfesten Gum¬ 
mifüße läßt sich die gesamte 
Konstruktion auf jedem 
Tisch zuverlässig fixieren. 
Ganz billig ist die zugegebe¬ 
nermaßen wirklich prakti¬ 
sche Kombination aller¬ 


dings nicht: Es gibt sie in 
zwei Größen. Für Drucker 
mit '80 Zeichen pro Zeile 
(Maße: 38x45x20 cm, Ge¬ 
wicht: 2,5 kg) kostet sie netto 
DM 139,-. Die Ausführung 
für 132-Zeichen-Drucker 
(Maße: 60x45x20, Gewicht: 4 
kg) kostet netto DM 179,-. 
Die Papierauffangschale, die 
für beide Drucker-Basen 
paßt, gibt es ISir netto DM 89,-. 




Nützliche Neuheiten für 

□ Commodore* und Atari 600/ 800 XL-User 


Diskettenlocher sind jetzt 
preiswert im Fachhandel zu 
haben und außerordentlich 
praktische Kleinigkeiten: 
Mit diesem Requisit läßt sich 
eine zweite Ausstanzung des 
Schreibschutzes an der 
richtigen Stelle auf Diskette 
anbringen. Dadurch wird 
auch die Rückseite der Platte 
zur Datenaufnahme nutz¬ 
bar. Der Anschaffungspreis, 
von etwa 30 Mark läßt sich 
schon nach Bearbeitung von 
fünf bis sechs' Diskeftten 
amortisieren. 

Joytick COMPETmON- 
PRQ ‘CHIEF: Dieses Mo¬ 
dell ist -die. konsequente 
Weiterentwicklung des COM- 
PETmON-PRO, der sich 
bereits großer Beliebtheit er- 
freute. Der ‘Chef besitzt nun 


WICOSOFT 

kommt mit umfangreichem 
Software-Angebot für den 

Bit-90 

Herleshausen, 07. August 
Allen-Besitzern des neuen 
Bit-9D-Heimconiputers steht 
‘ in Kürze ein umfangreiches 
Software-Angebot zur Verfü¬ 
gung. WiQ die Firma Wicosoft 
aus Herleshausen soeben in 
einem Presse-Info mitteilte, 
' werden bereits in einigen 
Wochen zahlreiche Spiel- 
und Anwenderprogramme 

SBPTSMBSn 1984 


noch einen ergonomisch 
ausgefeilten Handgriff für er¬ 
müdungsfreies Arbeiten, drei 
Feuerknöpfe auf dem Sockel 
und dem Handgriff-Tqp so¬ 
wie (und das ist schon vöni 
Standardmodell her- 

bekarint) ein schwarz-rotes 
Finish und ein Anschlußka¬ 
bel von 150 cm Länge. Sämt¬ 
liches Zubehör - also 
Adapter, Verlängerung, 
Schnellfeuer-Anschluß 
sind auch für den neuen 
‘Chef kompatibel. Nicht nur 
für Commodore 64 und VC- 
20, sondern auch für die 
Atari-Modelle VCS 2600,, 
400/600 sowie den 800XL ist^ 
der neue COMPETITION- 
PRO eihSatzbereit 

Highway-Duell ist ein brand¬ 
neues Atari-Autorenhen, das 


für den BIT,vorliegen. Man 
will nicht nur bekannte 
Arcadespiele, sondern auch 
.spezielle Software aus dem 
Bereich Textverarbeitung 
(Text-90), Dateiverwaltung 
(DATEI-90), Assembler- und 
Disassemblerprogramme so¬ 
wie Lernsoftware für Schüler 
auf den Markt bringen. Wie 
Wicosoft betonte, werden 
alle Spielbeschreibungen in 
deutscher, englischer und 
französischer Sprache abge-; 
faßt sein - eine gute Idee, die 
hoffentlich bald Nachahmer 
finden wird. ’ . • 


wir noch nicht getestet haben, 
über kurz oder lang aber 
auch in unseren Software- 
Reviews ausführlich präsen¬ 
tieren werden. Für heute sei 
nur gesagt, daß man gegen 
den Computer ebenso wie ge¬ 
gen einen menschlichen 
Partner antreten kann, daß 
verschiedene Kurse und 
Tonkulissen aufrufbar sind, 
zwei Levels eingestellt und 
sämtliche Funktionen mit 
dem Joystick realisiert wer¬ 
den können. Highway Duell 
wird in der Diskettenversion 
69,-DM kosten. 

Caissa ist ein Schächpro- 
gramm für den Commodore 
64, das geiriessen am Preis 
außerordentlich leistungs-. 
fähig ist So wird die Bedenk¬ 
zeit des menschlichen Spie¬ 


lers für eine Vorausberech-. 
nung auf bis zu 19 Halbzüge, 
genutzt Die verfügbare Zug¬ 
zeit kann zwischen 4 Sekun¬ 
den und maximal 10 Stunden 
gewählt werden, was gleich¬ 
zeitig die einzelnen Levels 
erzeugt Schachprobleme« 
vom Typ “Matt in...Zügen” 
lassen sich mit Zügwerten 
von 1 bis 10 durchspielen. 
Auch die laufende Partie 
. kann in -diversen Punkten 
beeinflußt werden. So ist jer 
deräeit Farbwechsel mög¬ 
lich. Und in der Statistik lie¬ 
fert die Zusatzfunktion 
brauchbare Daten, daß jedes 
Spiel auf Diskette/Kassette 
-gespeichert werden kann. 
Das Programm ist von Dy¬ 
namics und soll unter 80 
Markkosten. 


SOKO auf Hacker angesetzt 


Das Bayerische Landeskriminalamt München hat eine 
Sonderkommision (SOKO) gebildet, die speziell geschult 
und ausschließlich auf Software-Kriminalität ausgerichtet 
ist. Schwerpunkt bilden die Aktivitäten der Raubkopierer 
und Hacker, namentlich aus dem Bereich der Spielpro-. 
gramine. Der Arbeit der Münchner Spezialisten liegen 
einschlägige Erfahrungen des Lan’deskriminalamtes Han¬ 
nover zugrunde, das auch anderen SOKOs, die sicher bald 
in den übrigen Bundesländern gebildet werden, mit Rat 
und Tat zur Seite stehen wird. 

HoMseoMPunn 73 






Mit Telexstar werden 


Personalcomputer zum intelligenten 


Fernschreib¬ 


terminal 


München, 27. Juli 1984 Wer 
komfortable Textverar¬ 
beitung .und nahezu laut¬ 
loses Arbeiten am Bild¬ 
schirm eines Personalcom¬ 
puters gewohnt ist empfim 
det den Umgang mit einem 
Fernschreiber häufig als 
Rückschritt in eine überholte 
Technologie. Dem läßt sich 
jetzt mit einem kleinen. Zu¬ 
satzgerät überall dort abhel¬ 
fen, wo beides - PC und Te¬ 
lex - vorhanden ist 
Mit dem "Telexstar” näm¬ 
lich, so heißt der aktuelle' 
elektronische Assistent von 
"Computer 2000”, kann der. 
Fernschreiber in einen Ne¬ 
benraum oder eine abgele¬ 
gene Ecke des Büros ver- 
* bannt werden. Vom ge¬ 
wohnten Computer-Arbeits¬ 
platz aus wird er sozuskgen 
ferngesteuert wobei alle Raf¬ 
finessen der Textverar¬ 
beitung zur Verfügung ste¬ 
hen. Und das lästige Loch¬ 
streifen-Stanzen gehört der 
Vergangenheit an. 
Eingehende Fernschreiben 
können wahlweise gespei¬ 
chert oder gleich ausge¬ 
druckt werden. Rundschrei¬ 
ben, die an mehrere Emp¬ 
fänger gesendet werden 


sollen, brauchen nur einmal 
getippt zu werdeh undlassen 
sich jederzeit korrigieren, er¬ 
gänzen oder kürzen. Wer die 
mühsame Korrektur an Loch¬ 
streifen kennt weiß solche 
Vorteile zu schätzen. Natür¬ 
lich. ist auch Dialo^erkehr 
mit Telexpartnem direkt am 
Bildschirm möglich. 

Für viele Telex-Teilnehmer 
löst der Einsatz des Com¬ 
puters manch leidiges Pro¬ 
blem: Empfangene Texte 
können jetzt nämlich direkt 
weiterverarbeitet oder auch 
an weitere Partner übermit¬ 
telt werden, ohne daß' sie 
noch' einmal abgeschrieben 
werden müßten. Und bei der 
Vorbereitung von Schreiben, 
die gesendet werden sollen, 
können fix und fertige Text¬ 
bausteine - wie bei jeder an¬ 
deren Verwendung des Text¬ 
programms - in Sekun¬ 
denschnelle von der Diskette 
oder anderen Speicherele¬ 
menten auf den Bildschirm 
geholt werden. 

Soll es einmal besonders 
schnell gehen, dann kann 
der PC-Bediener sogar im 
Direktmodus, ganz ohne 
Textverarbeitungsprogramm, 
ins Telexnetz: Die Tastatur 


des Computers ersetzt auch 
dabei die dös Femschreibeß. 
Von anderen Fernschreibern 
aus kann der eigene Computer 
als Mailbox - "elektronischer 
Briefkasten” ^ angewählt und 
benutzt werden, sogar dann, 
wenn das. Büro, gar nicht be¬ 
setzt ist Über ein Kennwort 
gibt der jeweilige Computer 
eingespeicherte Informatio¬ 
nen frei und übermittelt sie auf 
dem Telexweg. Ein integrier¬ 
ter elektrönischer Kalender 
■ schließlich erleichtert das 
Einfügen oder Verändern von 
Terminen. 

Eine erweiterte Vereion 
dieses Zusatzgerätes, "Telex¬ 
starplus” genannt, bietet 
noch mehr Möglichkeiten: 
Unter anderem sind damit 
automatische Rundsendun¬ 
gen möglich, wobei Empfan-. 
ger und beliebige Sendezeit 
programmiert werden. So 
auch läßt sich beispielsweise 
die "billigste” Feritsprech- 
zeit ausnutzen. Auch wird 
der Telexpartner auf einen 
Knopfdruck hin solange auto¬ 
matisch angewählt, bis eine 
Verbindung zustande 
kommt. 

"Telexstarplus” hat noch ei¬ 
nen großen Vorteil: Seine Be¬ 
dienung ist durch die hier an¬ 


gewendete Menütechhik so 
einfach, daß auf die Lektüre 
einer Anleitung oder gar äüf 
eine Einarbeitung völlig ver¬ 
zichtet werden kann. 
Während die Art des Fern¬ 
schreibers ohne Bedeutung 
ist, muß für den jeweiligen 
Peßonalcomputer eine spe¬ 
zielle Anpassung vorgenohi- 
men werden. Dies geschieht 
jedoch schon vor der Liefet 
rung und ist für nahezu alle 
-gängigen -PC’s - verfügbar. 
Auch für die Terminals grö¬ 
ßerer Rechneranlagen t z.B. 
Vax von Digital Equipment 
oder IBM- und Siemens- 
Großrechner - sind ent¬ 
sprechende ’Telexstar’'-TV- 
pen erhältlich. • • 

Eine Zusatzsteckdose -am 
Fernschreiber ist die einzige 
von der Post geforderte Vor¬ 
aussetzung für den Einsatz 
des Telex-Zusatzes. Das Ge¬ 
rät ist im übrigen vom Fem- 
meldetechnischen Zentra¬ 
lamt geprüft und hat eine 
entsprechende FTZ-Num- 
mer erhalten. Es läßt sich mit 
Hilfe der mitgelieferten 
Normstecker problemlos 
anschließen und braucht 
keinerlei 'Wartung. 

■ □ ■ □ ■ □ 
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1. Berliner Computer-Tag 


D B □ Neues Multi-Board für 

Spectrum-Anwender: 

CURRAH Micro-Slot 


Vom 5. bis 7. Oktober 1984 
findet in Berlin der 1. Berliner 
Computer-Tag statt 
Der 1. Berliner Computer- 
Tag ist auf den örtlichen 
Fachhandel ausgerichtet 
Dem Besucher wird dadurch 
ermöglicht sich einen Über¬ 
blick über das Computer- 
und Software-Angebot in Ber 
lin zu verschaffen. 

Viele örtliche Unternehmen 
haben ihre Teilnahme zu¬ 
gesagt Darüber hinaus sind 
die führenden deutschen 
Fachverlage mit einem eige¬ 
nen Stand vertreten. 

Diese Regional-Messe ver¬ 
steht sich nicht als Konkur¬ 
renz zu den großen Messen, 


sondern wie auch die ande¬ 
ren Computer-Tage des 
gleichen Veranstalters, als 
interessante Bereicherung, 
des Marktes. 

Der Veranstalter, die Firma 
Computer-Tage Redmann, 
ist der Ausrichter der Hes¬ 
sischen und Bayerischen 
Computer-Tage, der erete 
Veranstalter regionäler Com¬ 
puter-Messen Überhaupt- 
Veranstaltungsort ist eine, der 
letzten großen, vom Berliner 
Messegelände unabhängi¬ 
gen, Hallen in der Berliner 
Innenstadt 

Der L Berliner Computer- 
Tag findet im Berliner Kindl 
Festsäal statt 


Ist es Ihnen nicht auch schon 
des öfteren so gegangen; Sie 
stecken ein brandneues Zu¬ 
behörteil in Ihren Spectrum 
und blockieren den User- 
Port-för weitere Peripherie! 
Damit könnte jetzt Schluß 
sein, wenn die Firma Currah 
Computer Components Ltd. 
(bekannt durch den Micro- 
Speech) ihren soeben auf 
den englischen Markt ge¬ 
brachten Micro-Slot auchiri 
Deutschland anbietet 
Wie uns Currah-Repräsen- 
taiit Rödney Holland mit¬ 
teilte, wird es noch im August, 
spätestens September, soweit 
sein. 

Das Prinzip ist simpel: Auf 


einem schmalen Anschluß¬ 
stück, das seineßeits über 
zwei im Winkel von 90 Grad 
angeordnete Ports verfügt, 
wird die jeweilige Erweite¬ 
rung aufgepfropft Weitere 
Micro-Slots und behebige 
Peripherie sind anschheß- 
bar. Wer also Raum genug 
hat um seinen Spectrum in 
die Tiefe' zu erweitern, findet 
hier eine ebenso praktische 
wie auch preiswerte Lösung. 
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Madit Druck. 

DAS GROSSE DRUCKERBUCH für Drucker- 
Anwender mit COMMODORE-Compu- 
tem Ist endlich dal Es enthält eine rie¬ 
sige Sammlung von Tips & Tricks, Pro- 
grammilstlngs und Hardwareinforma¬ 
tionen, Rolf Brückmann und Waus 
Cents beschäftigen sich mit Sekund 
adressen, Anschluß einer Schreib¬ 
maschine am userport Drucker- 
Schnittstellen (Centronics, V 24, iec-busi, hochauflösen¬ 
der Grafik, Text- und craflkhardcopy, Grafik mit Stan- 
dardzelchensatz, Formatierung nummerischer und 
alphanummerlscher Daten, Piakatschnft, Textverarbei¬ 
tung. Betriebssystem des MPSBOi zerlegt mit Prozes¬ 
sorbeschreibung (8035), Blockschaltbild und einem 
kommentierten RONFUstlng. Thomas Wiens schrieb 
den Teil über die Programmierung des Plotters VC- 
1520: Handhabung des Plotters. Programmierung von 
Sonderzeichen, Funköonendarstellung, Kuchen und 
Säulendiagramme. Kurvendiskussion, Entwurf drei¬ 
dimensionaler Gegenstände. Natürlich wieder viele 
Interessante Usüngs Ein Hllfsprogramm verhindert 
zB. den .Device not presenT-Fehler, Programme für 
formatierte Programm-Llstlngs, für den einfachen 
Texteditor .MINITEX', für Grafik mit und ohne Einzel¬ 
nadelsteuerung und für Darstellung SD-HiRESOraflK 
unentbehrlich für jeden, der einen COMMODORE 64 
oder VC-20 und einen Drucker besitzt 


I Nachschlagewerk zum COMMODORE 64 und 

I computedexlkon mit Fachwissen von A-Z 
I und Fachwörterbuch mit Übersetzungen 
I wichtiger englischer Fachbegriffe-das 
I DATA BECKER LEXIKON ZUM COMMODORE 64 
I stellt praktisch drei Bücher ln einem dar. E! 

I enthäft eine unglaubliche Vielfalt an infor-i - 

I madonen und dient so zugleich als kompetentes Nach- 
I Schlagewerk und als unentbehrliches Arbeitsmittel, viele 
I Abbildungen und Beispiele ergänzen den Text. Ein Muß für 
I jeden COMMODORE 64 Anwender! 


Endlich ein Buch, das Ihnen ausführlich und 
verständlich die Arbeit mit der Floppy VC- 
1541 erklärt Sein Inhalt reicht von der Pro- 
grammspelcnerung Dis zum DOS-ZugrIff, 
von der sequentiellen Datenspeicherung 
bis zum Direktzugrtff, von den System¬ 
befehlen bis zur detaillierten Beschreibung 
der Programme auf der Test-Demo- 
Diskette. Er—*'-—-— 


Hllfsprogramme ergänzen dieses neue Superbuch. Aus dem 
Inhalt: Speichern von Programmen - Floppy-systembefehle - 
Sequentielle Datenspeicherung - relative Datenspeicherung 
- Fehlermeldungen und Ihre Ursachen - Dlrektzugrlff - DOS- l 
UsOng der vc-1541 - BASIC-Erwelterungen und Programme - I 
Ovedaytechnlk - DIskmonItor - lEC-Bus und serieller Bus - ' 

vergleich mit den groBen CBM-Flopples. Ein Muß für jeden 
Floppv-Anwenden Bereits Uber45.000mal verkauft. 


SO FUNKTIONIERT IHR COMMODORE 64 


„n Kapitel Uber den lEC-Bus und viele, viele 
Ergänzungen, die sich Im Laufe der zeit 
angesammelt haben. Ebenfalls überarbei¬ 
tet und noch ausführlicher Ist jetzt die 
Dokumentation des ROM-Llstings. weitere 
Themen: genaue Beschreibung des Sound-und Video-Control¬ 
lers mit vielen Hinweisen zur Programmierung von Sound 
und Grafik, der Ein/Ausgabesteuerung laAsl. BASIC-Erwelte¬ 
rungen (RENEW, HARDCOPY, PRINTLISINO). Hinweise zur Maschi¬ 
nenprogrammierung wie Nutzung der E/A-Routlnen des 
Betnebssystems. Programmierung der Schnittstelle RS 232 
ln vergleich VC20 - C-64 - CBM zur Umsetzung von Program- 
len. Dies und viele weitere Informationen machen das 
.mfangrelche Werk zu einem unentbehrlichen Arbeitsmittel 
für jeden, der sich ernsthaft mit Betriebssystem und Technik 
des C-64 auseinandersetzen will, zum professionellen Gehalt 
des Buches tragen auch zwei Original-COMMODORE-Schalt- 
piane zum Ausklappen und zahlreiche ausfühdlch beschrie¬ 
bene und dokumentierte Fotos. Schaltbilder und Blockdla- 


I n 


DATA BECKER ^ 

MerowIngerstraBe 30 ■ 4000 Düsseldorf 1 ■ 0211/310010 
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Das PASCAL- 























Endich ist er da... Der KM 



Der neue Freund der Familie - 
einer für Alle und Alles 





• •I 



# VIDIS - Electronic Vertriebs GmbH 


le mit der großen Leistungi 




f 4450 Linsen (Ems) - Ruf (05 91) 6 60 49 


Telex 98 1137 vidis d 


Warenzeichen von COLECO-Industries. 


















MIT SPtCLERISCHetl 
LEPMSOFTWAPE. 
WIRD DER HOME 
COMPUTER ZUR IDEA- 




der Schriftsprache setzte? 
Der Computer ist nämlich. 

- wie uns die Populärwissen- 

nem Homecomputer privat schaftler immer wieder ver* 

kaum mehr anlangen kön- sichern, in Wirklichkeit viel 
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ENDLICH SIND 
SIE DA ~ 

die Mappen 
machen mit denr 
einander in Ihrer c 
Sammlung 


Zum Freundschaftspreis von 12,50 DM inclusive 
0 und Verpackung pro Stück (nur Vorauskasse per 
Scheck) mit Bezeichnung des Ordners (für HC oder CPU 
und Angabe der Stückzahl) können Sie schon kurze Zeit 
nach Bestellungseingang, die in Verarbeitung und Farbe sehr 
ansprechenden Ordner, in den Händen halten. 


Überweisungen bitte auf das Konto-Nr.; 45 22 934 
bei der Kreissparkasse Eschwege, 
Bankleitzahl 522 500 30 






















82 HoMtcoMpyTin 


II 















































WICOSOFT 


^+ST0P+++ Stark reduzierte Preise +++STOP+++ Sta + 


Das Thermometer steigt - unsere Preise faiienl 



Semmer-Sonderangebote zum ZugreifenI 

Bestellen bei; 


jjstark reduzierte Preise +++STOP+-t-+ Stark reduzierte Preise +++STOP+++ Stark reduzierte Preise++ 


-STOP+++ Stark reduzierte Preise t-++STOP+++ Stark reduzierte Preise +^-+STOP+++ Stark reduz 




I GROSSe fJ^EUNVSCHAFTS^ 

I WERSEAKTION IN CPU 

Kennen Sie unsere Zeitschrift bereits und haben 

Freunde und Bekannte die ebenfalls begeisterte Hobby¬ 
programmierer s ind, dan n sollten Sie ihnen 
einma l/-CPU-7 vorstellen. 


Unser Dankeschön für jeden neuen Abonnenten sind 
3 tolle Spielekassetten nach Ihrer Wahl aus 
unserem Kassettenservice-Angebot. 























